commit f932450

make system return string

 1@@ -6,8 +6,9 @@
 2 )
 3 
 4 (define (_system . a)
 5-(let ((p (apply open-pipe* OPEN_READ a)))
 6-  (display (read-string p))(close-pipe p)))
 7+  (let* ((p (apply open-pipe* OPEN_READ a))
 8+    (s (read-string p)))
 9+  (close-pipe p)s))
10 (define (info a) (format #t "\x1b[m\x1b[37m=>\x1b[m  ~a" a)(newline))
11 (define (msg a) (format #t "\x1b[m\x1b[32m==>\x1b[m ~a" a)(newline))
12 (define (_warn a) (format #t "\x1b[m\x1b[33mwarning: \x1b[m~a" a)(newline))

1@@ -11,5 +11,5 @@
2 
3 (define (inst-pkg pkg) (msg (format #f "installing ~a" pkg)))
4 (define (build-pkg pkg)
5-  (find-pkg pkg)
6+  (format #t "~a/ndmake.sh" (string-drop-right (find-pkg pkg) 1))
7 )