Commit e1d389c1 authored by Martijn Vervoort's avatar Martijn Vervoort
Browse files

restoring old main

parent 7810cbc6
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment