diff options
| author | martinw | 2001-03-02 11:04:51 +0000 |
|---|---|---|
| committer | martinw | 2001-03-02 11:04:51 +0000 |
| commit | a9d0a3079a558d012ac5ca0e6f5f51a1b6de54ff (patch) | |
| tree | 28fd74cc3a4835e53d648136c83c526611172970 /frontend/main.icl | |
| parent | bugfix: compiler couldn't detect following inconsistency: (diff) | |
making compiler self compilable (this doesn't say anything about the
quality of the generated executable)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@314 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/main.icl')
| -rw-r--r-- | frontend/main.icl | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/frontend/main.icl b/frontend/main.icl index 7fc2459..06a4e99 100644 --- a/frontend/main.icl +++ b/frontend/main.icl @@ -21,14 +21,6 @@ Start world CommandLoop proj ms=:{ms_io} - # answer = "c t5\n" - (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} - = ms -/* -CommandLoop proj ms=:{ms_io} # (answer, ms_io) = freadline (ms_io <<< "> ") (command, argument) = SplitAtLayoutChar (dropWhile isSpace (fromString answer)) | command == [] @@ -37,7 +29,6 @@ CommandLoop proj ms=:{ms_io} | ready = ms = CommandLoop proj ms -*/ :: MainStateDefs funs funtypes types conses classes instances members selectors = { msd_funs :: !funs |