added test files for variable declaration parsing

[cc1516.git] / src / main.icl

diff --git a/src/main.icl b/src/main.icl
index edd07f1..f2b5c93 100644 (file)
--- a/src/main.icl
+++ b/src/main.icl
@@ -41,7 +41,12 @@ Start w
        (Left e) = (Left e, Left "Parsing disabled", w)
 = case contents of
        (Left e) = (Left e, Left "", w)
-       (Right cs) = let lexOut = lexer cs in (lexOut, parser lexOut, w)
+       (Right cs)
+       # lexout = lexer cs
+       # parsout = parser lexout
+       # stdin = stdin <<< (either (const "") toString parsout)
+       # (_, w) = fclose stdin w
+       = (lexout, parser lexout, w)
 
 parseArgs :: *World -> (Opts, *World)
 parseArgs w