aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--frontend/main.icl8
1 files changed, 2 insertions, 6 deletions
diff --git a/frontend/main.icl b/frontend/main.icl
index 89b74dd..a796406 100644
--- a/frontend/main.icl
+++ b/frontend/main.icl
@@ -20,18 +20,14 @@ Start world
= fclose ms_out world
CommandLoop proj ms=:{ms_io}
-// # (answer, ms_io) = freadline (ms_io <<< "> ")
- # (answer, ms_io) = ("c backendconvert",ms_io) //("c test",ms_io) //("c Loader",ms_io)
-// # (answer, ms_io) = ("c gentest",ms_io) //("c test",ms_io) //("c Loader",ms_io)
+ # (answer, ms_io) = freadline (ms_io <<< "> ")
(command, argument) = SplitAtLayoutChar (dropWhile isSpace (fromString answer))
| command == []
= CommandLoop proj { ms & ms_io = ms_io}
# (ready, proj, ms) = DoCommand command argument proj { ms & ms_io = ms_io}
| ready
= ms
-// = CommandLoop proj ms
- = ms
-
+ = CommandLoop proj ms
:: MainStateDefs funs funtypes types conses classes instances members selectors =
{ msd_funs :: !funs