Commits

Christian Kellermann  committed 392a609

Use with-input-from-pipe for obtaining chicken version.

This fixes the -verbose flag.

  • Participants
  • Parent commits d46e9a6

Comments (0)

Files changed (1)

File chicken-select.scm

 #!/usr/bin/csi -s
 
-(use srfi-1 posix ports)
+(use srfi-1 posix data-structures)
 (include "chicken-env")
 
 (assert-chicken-coop-exists)
   (let* ((csi (make-pathname chicken-coop chicken))
          (csi (make-pathname csi "bin"))
          (csi (make-pathname csi "csi")))
-    (receive (in out pid)
-        (process csi '("-p" "(chicken-version #t)"))
-      (port-for-each 
-       (lambda (line)
-         (printf "     ~A~%" line)) 
-       (lambda () (read-line in)))
-      (close-output-port out)
-      (close-input-port in))))
+    (with-input-from-pipe
+        (string-concatenate (list csi " -n -p " "'(chicken-version #t)'"))
+      (lambda () (printf "\t~a~%" (read-line))))))
 
 (let* ((all-chicks (available-chickens))
        (current (list-index (cut equal? (current-chicken chicken-coop chicken-link) <>) all-chicks)))