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

restoring old main

parent 7810cbc6
...@@ -20,18 +20,14 @@ Start world ...@@ -20,18 +20,14 @@ Start world
= fclose ms_out world = fclose ms_out world
CommandLoop proj ms=:{ms_io} CommandLoop proj ms=:{ms_io}
// # (answer, ms_io) = freadline (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)
(command, argument) = SplitAtLayoutChar (dropWhile isSpace (fromString answer)) (command, argument) = SplitAtLayoutChar (dropWhile isSpace (fromString answer))
| command == [] | command == []
= CommandLoop proj { ms & ms_io = ms_io} = CommandLoop proj { ms & ms_io = ms_io}
# (ready, proj, ms) = DoCommand command argument proj { ms & ms_io = ms_io} # (ready, proj, ms) = DoCommand command argument proj { ms & ms_io = ms_io}
| ready | ready
= ms = ms
// = CommandLoop proj ms = CommandLoop proj ms
= ms
:: MainStateDefs funs funtypes types conses classes instances members selectors = :: MainStateDefs funs funtypes types conses classes instances members selectors =
{ msd_funs :: !funs { 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