hitting 8GB now :(

Author: andrew-johnson-4

Makefile

@@ -1,6 +1,6 @@
 
 nostd: prod
-	./production --nostd -o tmp.s tests/strict/match2.lm
+	./production --nostd -o tmp.s STRICT/cli.lm
 	as -o tmp.o tmp.s
 	ld -o tmp tmp.o
 	./tmp && echo $?

STRICT/cli.lm

@@ -54,15 +54,15 @@ main := λ(: argc U64)(: argv U8[][]).(tail(
    (print Preprocess:\s_s)(print config-preprocess)(print \n_s)
    (print Strict:\s_s)(print config-strict)(print \n_s)
 
-#   (let continue Trueu8)
-#   (while (==( continue Trueu8 )) (match input (
-#      ()
-#      ( SNil (set continue Falseu8) )
-#      ( (SCons( SNil rst )) (set input rst) )
-#      ( (SCons( l rst )) (tail( (print l) (set input rst) )) )
-#      ( (SCons( (SAtom( fp )) rst )) (tail( (cli-intake fp) (set input rst) )))
-#      ( (SAtom( fp )) (tail( (cli-intake fp) (set continue False) )))
-#   )))
+   (let continue Trueu8)
+   (while (==( continue Trueu8 )) (match input (
+      ()
+      ( SNil (set continue Falseu8) )
+      ( (SCons( SNil rst )) (set input rst) )
+      ( (SCons( l rst )) (tail( (print l) (set input rst) )) )
+      ( (SCons( (SAtom( fp )) rst )) (tail( (cli-intake fp) (set input rst) )))
+      ( (SAtom( fp )) (tail( (cli-intake fp) (set continue False) )))
+   )))
 
 
 #      (Compile (