commit 2635615

update usage, error hunting

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

 1@@ -13,9 +13,18 @@
 2   (mkdir-p DULL_DIR)
 3   )
 4 
 5+(when (or (= (length (command-line)) 1)
 6+	  (and (not (> (length (command-line)) 2))
 7+	       (any (lambda (c) (string-contains (cadr (command-line)) c))
 8+				     '("b" "d" "i" "c" "f" "m")))
 9+	  )
10+  (usage)
11+  (exit 0)
12+  )
13+
14 (unless
15     (zero? (getuid))
16-  (die (format #f "you need to run ~a as root." DULL 1)))
17+  (die (format #f "you need to run ~a as root." DULL) 1))
18 
19 (define c
20   (if (> (length (command-line)) 1)
21@@ -26,7 +35,7 @@
22 (define pkg
23   (if (> (length (command-line)) 2)
24       (caddr (command-line))
25-      "deadbeef"
26+      "deadpkg"
27       ))
28 
29 (when (string=? c "deadbeef")

1@@ -2,4 +2,5 @@
2  (ice-9 popen)
3  (ice-9 rdelim)
4  (ice-9 ftw)
5- (srfi srfi-1))
6+ (srfi srfi-1)
7+ (srfi srfi-13))