From bbac534f39d2a14a3b32345f590d4a8252d27eae Mon Sep 17 00:00:00 2001
From: martinw
Date: Mon, 21 Feb 2000 10:53:18 +0000
Subject: - implemented comparison between redundant definitions in icl and dcl
 modules     (new module: comparedefimp) - implemented array patterns. Further
 work: arrays are in lazy context (should be strict),     currently only one
 dimensional arrays - optimised memory usage for explicit imports

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@94 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/main.icl | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'frontend/main.icl')

diff --git a/frontend/main.icl b/frontend/main.icl
index 5f4c7d0..d907e1c 100644
--- a/frontend/main.icl
+++ b/frontend/main.icl
@@ -19,6 +19,16 @@ Start world
 					(ms.ms_out, ms.ms_files))) world
 	= fclose ms_out 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))
@@ -28,6 +38,7 @@ CommandLoop proj ms=:{ms_io}
 		| ready
 			= ms
 			= CommandLoop proj ms
+*/
 
 ::	MainStateDefs funs funtypes types conses classes instances members selectors =
 	{	msd_funs		:: !funs
-- 
cgit v1.2.3