commit 6bb5ed5

TARGETS

 1@@ -1,8 +1,10 @@
 2 x: a b
 3 a: c
 4-b: 
 5+b:
 6+	echo "b b b "
 7 c:
 8 	echo "you reached c target good"
 9+	echo "c c c c c"
10 
11 goon: green
12 green: hi

 1@@ -31,7 +31,28 @@
 2 		))
 3   )
 4 (set! t-list (delete-duplicates t-list equal?))
 5-(display t-list)
 6+(display t-list)(newline)
 7+
 8+(do ((i 0 (+ i 1)))
 9+    ((>= i (length t-list)))
10+  (call/cc
11+   (lambda (break)
12+     (do ((o 0 (+ o 1)))
13+         ((>= o (length f-list)))
14+       (if (and
15+            (string-contains (list-ref f-list o) ":")
16+            (string=?
17+             (car (line-parse (list-ref f-list o)))
18+             (list-ref t-list i)))
19+           (begin
20+             (do ((r (+ o 1) (+ r 1)))
21+                 ((or (>= r (length f-list))
22+                      (string-null? (list-ref f-list r))
23+                      (not (char=? (string-ref (list-ref f-list r) 0)
24+                                   #\tab))))
25+               (display (list-ref f-list r))
26+               (newline))
27+             (break)))))))
28 ;; => (1 2 3 4 5)
29 
30 ;; (display (list-ref (list-ref (list-ref m-list 0) 1) 0))

 1@@ -11,9 +11,7 @@
 2         (let ((l (read-line p)))
 3           (if (eof-object? l)
 4               (reverse L)
 5-              (if (string-null? (string-trim-both l))
 6-                  (loop L)
 7-                  (loop (cons l L)))))))))
 8+              (loop (cons l L))))))))
 9 
10 (define (line-parse l)
11   (let* ((p (string-split l #\:))