commit 100a5e7

hide lines with @

1@@ -5,6 +5,7 @@ b:
2 c:
3 	echo "you reached c target good"
4 	echo "c c c c c"
5+	@echo "cant see this can you"
6 
7 goon: green
8 green: hi

 1@@ -17,8 +17,8 @@
 2        (set! m-list (cons (line-parse (list-ref f-list l)) m-list)))
 3       )
 4 
 5-(display m-list)
 6-(newline)(newline)
 7+;; (display m-list)
 8+;; (newline)(newline)
 9 
10 ;; (list-sort (car (list-ref m-list 0)) m-list)(newline)
11 ;; (list-sort "goon" m-list)
12@@ -31,7 +31,7 @@
13 		))
14   )
15 (set! t-list (delete-duplicates t-list equal?))
16-(display t-list)(newline)
17+;; (display t-list)(newline)
18 
19 (do ((i 0 (+ i 1)))
20     ((>= i (length t-list)))
21@@ -50,8 +50,13 @@
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+	       (if (char=? (string-ref (list-ref f-list r) 1) #\@)
28+		   '()
29+		   (begin
30+		     (display (string-delete #\tab (list-ref f-list r)))(newline)
31+		     )
32+		)
33+               )
34              (break)))))))
35 ;; => (1 2 3 4 5)
36