commit 3e37d99

some formatting and fixes

 1@@ -3,9 +3,19 @@
 2 (define (_system . a)
 3   (let* ((p (apply open-pipe* OPEN_READ a))
 4     (s (read-string p)))
 5-  (close-pipe p)s))
 6-(define (info a) (format #t "\x1b[m\x1b[37m=>\x1b[m  ~a" a)(newline))
 7-(define (msg a) (format #t "\x1b[m\x1b[32m==>\x1b[m ~a" a)(newline))
 8-(define (_warn a) (format #t "\x1b[m\x1b[33mwarning: \x1b[m~a" a)(newline))
 9-(define (die a) (format #t "\x1b[m\x1b[31mERROR: \x1b[m~a" a)(quit 1))
10-(define (find-pkg p) (_system "find" (or (getenv "DTR_DIR") "/ports") "-mindepth" "2" "-maxdepth" "2" "-name" p))
11+    (close-pipe p)s))
12+
13+(define (info a)
14+  (format #t "\x1b[m\x1b[37m=>\x1b[m  ~a~%" a))
15+
16+(define (msg a)
17+  (format #t "\x1b[m\x1b[32m==>\x1b[m ~a~%" a))
18+(define (_warn a)
19+  (format #t "\x1b[m\x1b[33mwarning: \x1b[m~a~%" a))
20+(define (die a n)
21+  (format #t "\x1b[m\x1b[31mERROR: \x1b[m~a~%" a)(quit n))
22+
23+(define (find-pkg p)
24+  (_system "find"
25+	   (or (getenv "DTR_DIR") "/ports") "-type" "d" "-mindepth" "2" "-maxdepth" "2" "-name" p)
26+  )

1@@ -1,6 +1,5 @@
2 (_warn "this will be some sort of libdmake.sh helper in guile")
3 (_system "ls" "/")
4 (inst-pkg "goonapp")
5-(display (getenv "HOME"))(newline)
6 (build-pkg "gmake")
7-(die "error")
8+(die "error" 1)