diff options
| author | martijnv | 2001-08-27 12:28:55 +0000 |
|---|---|---|
| committer | martijnv | 2001-08-27 12:28:55 +0000 |
| commit | 8313c398618b4e3e2eac669048af59437a2606e9 (patch) | |
| tree | ae3357a141b92a05162e97f7d972a78e6dcd04ea /frontend/main.icl | |
| parent | This commit was generated by cvs2svn to compensate for changes in r664, (diff) | |
bug fixes, ModuleID argument in T_ypeConsSymbol, added _SystemDynamic
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@674 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/main.icl')
| -rw-r--r-- | frontend/main.icl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/frontend/main.icl b/frontend/main.icl index a796406..89b74dd 100644 --- a/frontend/main.icl +++ b/frontend/main.icl @@ -20,14 +20,18 @@ Start world = fclose ms_out world 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 == [] = CommandLoop proj { ms & ms_io = ms_io} # (ready, proj, ms) = DoCommand command argument proj { ms & ms_io = ms_io} | ready = ms - = CommandLoop proj ms +// = CommandLoop proj ms + = ms + :: MainStateDefs funs funtypes types conses classes instances members selectors = { msd_funs :: !funs |