commit 175c408

remove empty lines when file type checking

1@@ -1,4 +1,5 @@
2 (use-modules
3  (ice-9 popen)
4  (ice-9 rdelim)
5- (ice-9 ftw))
6+ (ice-9 ftw)
7+ (srfi srfi-1))

 1@@ -52,11 +52,11 @@
 2 
 3   (let* (
 4 	 (pl (format #f "~a/~a/lock" DULL_DB pkg))
 5-	 (pf (call-with-input-file pl
 6+	 (pf (remove string-null? (call-with-input-file pl
 7 	       (lambda (f)
 8 		 (string-split (read-string f) #\newline)
 9 		 )
10-	       )
11+	       ))
12 	     )
13 	 )
14     (unless (file-exists? pl) (die (format #f "package ~a~a~a does not have a lock file (not installed?)" "\x1b[33m" pkg "\x1b[0m") 2))
15@@ -65,7 +65,6 @@
16 	     (n 0)
17 	     )
18       (unless (= n (length pf))
19-	;;	(display (list-ref pf n))(newline)
20 	(when (eq?
21 	       (stat:type (stat (list-ref pf n))) 'regular
22 	       )