Christian Kellermann committed 392a609

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

This fixes the -verbose flag.

Comments (0)

Files changed (1)


 #!/usr/bin/csi -s
-(use srfi-1 posix ports)
+(use srfi-1 posix data-structures)
 (include "chicken-env")
   (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)))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.