commit 07e58d6

fix break

 1@@ -67,17 +67,15 @@
 2                                    #\tab))))
 3 	       (if (char=? (string-ref (list-ref f-list r) 1) #\@)
 4 		   (system (string-delete #\@ (substring (list-ref f-list r)1)))
 5+		   
 6 		   (begin
 7-		     (format #t "+ ~a" (string-delete #\tab (list-ref f-list r)))(newline)
 8+		     (format #t "+ ~a" (var-expand (string-delete #\tab (list-ref f-list r)) v-list))
 9 
10 		     (if (string-contains (list-ref f-list r) "$(")
11 			 (system (var-expand (substring (list-ref f-list r) 1)v-list))
12-			 (system (substring (list-ref f-list r)1))
13-			 )
14-		     )
15-		   )
16-               )
17-             (break)))))))
18+			 (system (substring (list-ref f-list r)1)))
19+		     (break)))))))
20+     )))
21 ;; => (1 2 3 4 5)
22 
23 ;; (display (list-ref (list-ref (list-ref m-list 0) 1) 0))