diff options
| author | martinw | 2001-02-13 09:29:39 +0000 |
|---|---|---|
| committer | martinw | 2001-02-13 09:29:39 +0000 |
| commit | 4a1649a8718b3fbd79d9d68c29e2a3ca1106fbfc (patch) | |
| tree | d313c1e1bb960ff1d669ec53b7e9976165002c9f /frontend/main.icl | |
| parent | Removed pretty printing of types in instances (diff) | |
delaying "determineTypesOfInstances" and "checkSpecialsOfInstances" after
checking of a whole dcl module component --> now cyclic module dependencies
should work
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@294 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/main.icl')
| -rw-r--r-- | frontend/main.icl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/frontend/main.icl b/frontend/main.icl index 06a4e99..7fc2459 100644 --- a/frontend/main.icl +++ b/frontend/main.icl @@ -21,6 +21,14 @@ 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 == [] @@ -29,6 +37,7 @@ CommandLoop proj ms=:{ms_io} | ready = ms = CommandLoop proj ms +*/ :: MainStateDefs funs funtypes types conses classes instances members selectors = { msd_funs :: !funs |