commit 391784e

delete lock after package removal

 1@@ -95,9 +95,7 @@
 2     (let fp ((n 0))
 3       (unless (= n (length pf))
 4 	(when (eq? (stat:type (stat (list-ref pf n))) 'regular)
 5-	  ;;	  (format #t "~a file " (list-ref pf n))
 6 	  (delete-file (list-ref pf n))
 7-	  ;;	  (format #t "rm~%")
 8 
 9 	  ;; add to deleted list
10 	  (set! rl
11@@ -122,6 +120,8 @@
12 		   )
13 	    ))
14 	(dp (+ n 1))))
15+
16+    (delete-file pl)
17     )
18   (msg (format #f "package ~a~a~a successfully removed" "\x1b[33m" pkg "\x1b[m") "-->")
19   )