werkt

[cc1516.git] / main.icl

diff --git a/main.icl b/main.icl
index 90624e8..ef5566a 100644 (file)
--- a/main.icl
+++ b/main.icl
@@ -3,14 +3,24 @@ module main
 import StdFile
 import StdBool
 
+import parse
 import lex
 
-Start :: *World -> (LexerOutput, *World)
+//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
-= (lexer toparse, w)
+= (parse (lexer toparse), w)
+*/
 
 readEntireFile :: *File -> *([Char], *File)
 readEntireFile f