From ddda5856e49c82fb6d5a4a94dae46a93ceade138 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Thu, 18 Oct 2001 11:33:45 +0000
Subject: store macros and local functions in macros in separate {#{#FunDef}},
 remove conversion table, except for macros

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

(limited to 'frontend/overloading.icl')

diff --git a/frontend/overloading.icl b/frontend/overloading.icl
index e72560f..d3ac1fd 100644
--- a/frontend/overloading.icl
+++ b/frontend/overloading.icl
@@ -1260,7 +1260,7 @@ where
 	,	x_module_id		:: Optional LetBind
 // ... MV
 	}
-
+	
 class updateExpression e :: !Index !e !*UpdateInfo -> (!e, !*UpdateInfo)
 
 instance updateExpression Expression
@@ -1357,12 +1357,12 @@ where
 				= ui
 		where
 			add_call fun_num []
-				= [{ fc_level = 0, fc_index = fun_num }]
-			add_call fun_num funs=:[call=:{fc_index} : ui]
+				= [FunCall fun_num 0]
+			add_call fun_num funs=:[call=:(FunCall fc_index _) : ui]
 				| fun_num == fc_index
 					= funs
 				| fun_num < fc_index
-					= [{ fc_level = 0, fc_index = fun_num } : funs]
+					= [FunCall fun_num 0 : funs]
 					= [call : add_call fun_num ui]
 	
 		examine_calls [expr : exprs] ui
@@ -1738,10 +1738,6 @@ instance <<< TypeContext
 where
 	(<<<) file tc = file <<< tc.tc_class.glob_object.ds_ident <<< ' ' <<< tc.tc_types <<< " <" <<< tc.tc_var <<< '>'
 
-instance <<< FunCall
-where
-	(<<<) file {fc_index} = file <<< fc_index
-
 instance <<< Special
 where
 	(<<<) file {spec_types} = file <<< spec_types
-- 
cgit v1.2.3