commit 9bd9aff

backwards parsing

 1@@ -1,7 +1,16 @@
 2 (use-modules (util))
 3-(define m-list (file-read "Makefile"))
 4-(do ((l 0 (+ l 1)))
 5-    ((>= l (length m-list)))
 6+
 7+;; a needs c so put it first
 8+;; a then put a
 9+;; then b
10+;; then x
11+;; c -> a -> b -> x
12+
13+(define m-list '())
14+(define f-list (file-read "Makefile"))
15+(do ((l (- (length f-list) 1) (- l 1)))
16+    ((< l 0))
17   (begin
18-    (display (list-ref m-list l))(newline)
19+    (display (list-ref f-list l))(newline)
20     ))
21+