(xdef 'pipe-from (lambda (cmd) (let ((tf (ar-tmpname))) (system (string-append cmd " > " tf)) (let ((str (open-input-file tf))) (system (string-append "rm -f " tf)) str))))
From ac.scm ©
ac.scm