[Chicken-users] capture command output

[Jinsong Liang]

Sorry if this is a question answered before.

How can I capture the output of a shell command?

I found the follow code from google but it seems not working. The output still goes to stdout.

(define (system/output command-string)                                                          

  (let ([p (open-output-string)])                                                               

    (parameterize ([current-output-port p])                                                     

                  (if (system command-string)                                                   

                    (get-output-string p)                                                       

                    #f))))

Thank you!

Jinsong