commit 4d5063b

add help

1@@ -31,6 +31,7 @@
2 
3 (define (usage)
4   (format #t "usage: dull <cmd> <pkgs>~%")
5+  (format #t "       dull h <pkgs>~%")
6   (format #t "       dull u|b|i|c|d <pkgs>~%")
7   (format #t "       dull m|f|s <pkgs>~%")
8   )

 1@@ -40,6 +40,10 @@
 2       (= n (string-length c))
 3 
 4     (case (string-ref c n)
 5+      ((#\h)
 6+       (usage)
 7+       (exit 0)
 8+       )
 9       ((#\u)
10        (let (
11 	     (s "/ports-dull")