diff options
| -rw-r--r-- | frontend/main.icl | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/frontend/main.icl b/frontend/main.icl index 3b67c85..9d79056 100644 --- a/frontend/main.icl +++ b/frontend/main.icl @@ -19,17 +19,6 @@ Start world = fclose ms_out world CommandLoop proj ms=:{ms_io} - # answer = "c t5" - (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 - = ms - -/* -CommandLoop proj ms=:{ms_io} # (answer, ms_io) = freadline (ms_io <<< "> ") (command, argument) = SplitAtLayoutChar (dropWhile isSpace (fromString answer)) | command == [] @@ -38,7 +27,6 @@ CommandLoop proj ms=:{ms_io} | ready = ms = CommandLoop proj ms -*/ :: MainStateDefs funs funtypes types conses classes instances members selectors = { msd_funs :: !funs @@ -180,7 +168,7 @@ loadModule mod_ident predef_symbols hash_table ms=:{ms_files,ms_error,ms_io,ms_o // (components, fun_defs, ms_error) = showTypes components 0 fun_defs ms_error (components, fun_defs, ms_error) = showComponents components 0 True fun_defs ms_error (cleanup_info, acc_args, components, fun_defs, var_heap, expression_heap) - = analyseGroups common_defs (components ---> "Transform") fun_defs imported_funs heaps.hp_var_heap heaps.hp_expression_heap + = analyseGroups common_defs (components ---> "Transform") fun_defs heaps.hp_var_heap heaps.hp_expression_heap #!(components, fun_defs, dcl_types, used_conses, var_heap, type_heaps, expression_heap) = transformGroups cleanup_info components fun_defs acc_args common_defs imported_funs var_heap heaps.hp_type_heaps expression_heap (components, fun_defs, ms_error) = showComponents components 0 True fun_defs ms_error |