From c3cb3ec8853ade96853ee4b05f11942fa6b31a9a Mon Sep 17 00:00:00 2001
From: martinw
Date: Wed, 26 Apr 2000 16:00:26 +0000
Subject: sorry for that!

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

(limited to 'frontend')

diff --git a/frontend/main.icl b/frontend/main.icl
index d907e1c..a5251ce 100644
--- a/frontend/main.icl
+++ b/frontend/main.icl
@@ -20,15 +20,6 @@ Start 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))
@@ -38,7 +29,6 @@ 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