diff options
-rw-r--r-- | frontend/main.icl | 8 |
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 |