commit 707c83f

error on nonexistant lock

 1@@ -125,6 +125,8 @@
 2 
 3 (define (del-pkg pkg)
 4   (msg (format #f "removing package ~a~a~a" "\x1b[33m" pkg "\x1b[m") "->")
 5+      (unless (installed? pkg)
 6+      (die (format #f "package ~a~a~a does not have a lock (not installed?)" "\x1b[33m" pkg "\x1b[0m") 2))
 7 
 8   (let* (
 9 	 (pl (format #f "~a/~a/lock" DULL_DB pkg))
10@@ -135,8 +137,6 @@
11 				    )))
12 	 (rl '())
13 	 )
14-    (unless (installed? pkg)
15-      (die (format #f "package ~a~a~a does not have a lock (not installed?)" "\x1b[33m" pkg "\x1b[0m") 2))
16 
17     (let fp ((n 0))
18       (unless (= n (length pf))