From ccf46727369f5174e42ea96b8d9cc404bea94396 Mon Sep 17 00:00:00 2001
From: martinw
Date: Thu, 2 Nov 2000 14:09:30 +0000
Subject: optimizing performance of explicitimports

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@280 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/utilities.dcl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'frontend/utilities.dcl')

diff --git a/frontend/utilities.dcl b/frontend/utilities.dcl
index e6fa88d..3cded9b 100644
--- a/frontend/utilities.dcl
+++ b/frontend/utilities.dcl
@@ -124,11 +124,12 @@ mapFilterYesSt f l st
 	:== map_filter_yes_st l st
   where
 	map_filter_yes_st [] st
+		#! st = st
 		= ([], st)
 	map_filter_yes_st [h:t] st
 		#! (opt_f_h , st) = f h st
 		   (t2, st) = map_filter_yes_st t st
-		   f_h_t2 = optCons opt_f_h t2
+		   (f_h_t2, _) = optCons opt_f_h t2
 		   st = st
 		= (f_h_t2, st)
 				
@@ -136,15 +137,16 @@ iMapFilterYesSt f fr to st
 	:== i_map_filter_yes_st fr to st
   where
 	i_map_filter_yes_st fr to st
+		#! st = st
 		| fr >= to
 			= ([], st)
 		#! (opt_f_fr, st) = f fr st
 		   (t, st) = i_map_filter_yes_st (inc fr) to st
-		   f_fr_t2 = optCons opt_f_fr t
+		   (f_fr_t2, _) = optCons opt_f_fr t
 		   st = st
 		= (f_fr_t2, st)
 				
-optCons :: !(Optional .a) !u:[.a] -> v:[.a] ,[u <= v]
+optCons :: !(Optional .a) !u:[.a] -> (!v:[.a], !Int) ,[u <= v]
 
 revAppend	:: ![a] ![a] -> [a]	//	Reverse the list using the second argument as accumulator.
 revMap :: !(.a -> .b) ![.a] !u:[.b] -> u:[.b]
-- 
cgit v1.2.3