From 8313c398618b4e3e2eac669048af59437a2606e9 Mon Sep 17 00:00:00 2001
From: martijnv
Date: Mon, 27 Aug 2001 12:28:55 +0000
Subject: 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
---
frontend/main.icl | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
(limited to 'frontend/main.icl')
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
--
cgit v1.2.3