From cbc8ea0ead4d8b75b66d673456dce0165010fe67 Mon Sep 17 00:00:00 2001
From: martijnv
Date: Thu, 30 Aug 2001 10:16:34 +0000
Subject: restoring old main

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

(limited to 'frontend')

diff --git a/frontend/main.icl b/frontend/main.icl
index 89b74dd..a796406 100644
--- a/frontend/main.icl
+++ b/frontend/main.icl
@@ -20,18 +20,14 @@ Start world
 	= fclose ms_out world
 
 CommandLoop proj ms=:{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)
+	# (answer, ms_io)		= freadline (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
-			= ms
-
+			= CommandLoop proj ms
 
 ::	MainStateDefs funs funtypes types conses classes instances members selectors =
 	{	msd_funs		:: !funs
-- 
cgit v1.2.3