X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Fmain.icl;h=f2b5c9383be05c655936f41854dda635c10f2b9e;hb=ff0b269598ad277346c81db9d9bc86b4c244e1e2;hp=edd07f19c76a04cc8d181624333a9c083385209e;hpb=d1e64de8a0cc6c01fba1a3dc17686f9539bf5744;p=cc1516.git

diff --git a/src/main.icl b/src/main.icl
index edd07f1..f2b5c93 100644
--- 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