X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Fmain.icl;h=f2b5c9383be05c655936f41854dda635c10f2b9e;hb=7c16c9353b324301ee8c028e39c33aa2a46895f8;hp=edd07f19c76a04cc8d181624333a9c083385209e;hpb=ecb884c3135dd60d57288b51359f458a6d127c77;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