X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=main.icl;h=ef5566a554625757fafa3cb9fb5629990f40df8e;hb=4766205e7035a58c8a1fa1557b6e14577ed26f32;hp=ced5b0a9beefd448590368fb47ad5c705798645a;hpb=953019d8255b9779d67fb1cb6c8946f589a24936;p=cc1516.git

diff --git a/main.icl b/main.icl
index ced5b0a..ef5566a 100644
--- a/main.icl
+++ b/main.icl
@@ -3,15 +3,24 @@ module main
 import StdFile
 import StdBool
 
-import lex
 import parse
+import lex
 
+//Start :: *World -> (ParserOutput, *World)
+Start = ""
+//Start w
+//# (out, w) = stdio w
+//# (toparse, out) = readEntireFile out
+//# (_, w) = fclose out w
+//= (lexer toparse, w)
+/*
 Start :: *World -> (ParserOutput, *World)
 Start w
 # (out, w) = stdio w
 # (toparse, out) = readEntireFile out
 # (_, w) = fclose out w
 = (parse (lexer toparse), w)
+*/
 
 readEntireFile :: *File -> *([Char], *File)
 readEntireFile f