commit 26fa83e

warn on empty lock

 1@@ -73,7 +73,8 @@
 2 		     (display 
 3 		      (format #f "~a~a~%"
 4 			      (substring (format #f "~a" g) (string-length dp))
 5-			      (if (eq? (stat:type s) 'directory) "/" "")
 6+			      (if (and (eq? (stat:type s) 'directory)
 7+				       (not (string-null? g))) "/" "")
 8 			      )
 9 		      f)
10 		     #t)
11@@ -91,6 +92,11 @@
12 				   (string-split (read-string f) #\newline)
13 				   )
14 				 )))
15+    
16+    (when (and (or (string=? (car df) "/") (string-null? (car df)))
17+		   (= (length df) 1))
18+      (_warn (format #f "lock for ~a is empty" pkg))
19+      )
20 
21     ;; actually install
22     (let dc ((n 0))