commit c000fa4

pm: exclude empty strings

 1@@ -26,7 +26,7 @@
 2     (format #f "/var/lib/spc/installed")
 3   (lambda (g)
 4     
 5-    (unless (member pkg (string-split (read-string g) #\newline)string=?)
 6+    (unless (member pkg (string-split (read-string g) #\newline) string=?)
 7       
 8       (format #t "~aERROR:~a package '~a' not found~%"
 9 	      "\x1b[31;1m" "\x1b[m"
10@@ -64,12 +64,14 @@
11 		  (string-contains cl "deps:")
12 		  (string-contains cl "files:")
13 		  (string-suffix? "/" p)
14+		  (string-null? p)
15 		  )
16 		 )
17 
18+	(when (string=? p)
19 	(format #t
20 		"~a~%"
21 		p
22-		))
23+		)))
24 	(m (+ n 1))
25 	)))