commit f12c699

chld  ·  2026-08-15 17:31:38 +0000 UTC
parent 7dbb522 
only parse lines w colon
2 files changed,  +5, -1
M Makefile
M test.scm
M Makefile
+2, -0 
1@@ -3,6 +3,8 @@ a: c
2 b: 
3 c:
4 
5+ekfjheik
6+
7 goon: green
8 green: hi
9 hi:
M test.scm
+3, -1 
 1@@ -11,7 +11,9 @@
 2 
 3 (do ((l (- (length f-list) 1) (- l 1)))
 4     ((< l 0))
 5-  (set! m-list (cons (line-parse (list-ref f-list l)) m-list)))
 6+  (if (string-contains (list-ref f-list l) ":")
 7+       (set! m-list (cons (line-parse (list-ref f-list l)) m-list)))
 8+      )
 9 
10 (display m-list)
11 (newline)(newline)