commit ee12817

some cleanup, updated formatting, remove debug messages

 1@@ -14,8 +14,8 @@
 2 (define (info a)
 3   (format #t "\x1b[m\x1b[37m=>\x1b[m  ~a~%" a))
 4 
 5-(define (msg a)
 6-  (format #t "\x1b[m\x1b[32m==>\x1b[m ~a~%" a))
 7+(define (msg b a)
 8+  (format #t "\x1b[m\x1b[32m~a\x1b[m ~a~%" a b))
 9 (define (pmsg a b)
10   (format #t "\x1b[m\x1b[31m(~a)\x1b[m ~a~%" a b))
11 

1@@ -71,4 +71,3 @@
2     )
3   
4   )
5-(newline)

 1@@ -19,7 +19,7 @@
 2   )
 3 
 4 (define (inst-pkg pkg)
 5-  (pmsg pkg "beginning install")
 6+  (msg (format #f "installing package ~a~a~a" "\x1b[33m" pkg "\x1b[m") "->")
 7 
 8   ;; determine pkg dir
 9   (let (
10@@ -45,10 +45,11 @@
11 	  )
12 	)
13     )
14+  (msg (format #f "package ~a~a~a successfully installed" "\x1b[33m" pkg "\x1b[m") "-->")
15   )
16 
17 (define (del-pkg pkg)
18-  (pmsg pkg "beginning removal")
19+  (msg (format #f "removing package ~a~a~a" "\x1b[33m" pkg "\x1b[m") "->")
20 
21   (let* (
22 	 (pl (format #f "~a/~a/lock" DULL_DB pkg))
23@@ -64,9 +65,9 @@
24     (let fp ((n 0))
25       (unless (= n (length pf))
26 	(when (eq? (stat:type (stat (list-ref pf n))) 'regular)
27-	  (format #t "~a file " (list-ref pf n))
28+;;	  (format #t "~a file " (list-ref pf n))
29 	  (delete-file (list-ref pf n))
30-	  (format #t "rm~%")
31+;;	  (format #t "rm~%")
32 
33 	  ;; add to deleted list
34 	  (set! rl
35@@ -80,20 +81,19 @@
36 	;; remove directories not in deleted list
37 	(unless (member (list-ref pf n) rl)
38 	(when (eq? (stat:type (stat (list-ref pf n))) 'directory)
39-	  (format #t "~a dir " (list-ref pf n))
40 	  
41 	  (catch 'system-error
42 		 (lambda ()
43 		   (rmdir (list-ref pf n))
44-		   (format #t "rmdir~%")
45 		   )
46 		 (lambda (key . args)
47-		   (format #t "fail~%")
48+		   (+ 60 7)
49 		   )
50 		 )
51 	  ))
52 	(dp (+ n 1))))
53     )
54+  (msg (format #f "package ~a~a~a successfully removed" "\x1b[33m" pkg "\x1b[m") "-->")
55   )
56 
57 (define (pm-pkg pkg)