From 11af9c62a99dd5561499161d4100fe0967f1bb20 Mon Sep 17 00:00:00 2001
From: sjakie
Date: Fri, 12 Nov 1999 11:23:28 +0000
Subject: minor bug fix, some code polishing

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@45 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/utilities.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'frontend/utilities.icl')

diff --git a/frontend/utilities.icl b/frontend/utilities.icl
index 4c54d13..e844395 100644
--- a/frontend/utilities.icl
+++ b/frontend/utilities.icl
@@ -169,7 +169,7 @@ iFoldSt op fr to st :== i_fold_st fr to st
 iterateSt op st :== iterate_st op st
 	where
 		iterate_st op st
-			# (continue, st) = op (False, st)
+			# (continue, st) = op st
 			| continue
 				= iterate_st op st
 				= st
-- 
cgit v1.2.3