From 58620ac73b7537603254d52311d80e710752cd8c Mon Sep 17 00:00:00 2001
From: sjakie
Date: Tue, 20 Mar 2001 10:49:22 +0000
Subject: Sjaak: fixed inheritance bugs and strictness attributes

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

(limited to 'frontend/checksupport.icl')

diff --git a/frontend/checksupport.icl b/frontend/checksupport.icl
index 1a90e9f..a45c9e4 100644
--- a/frontend/checksupport.icl
+++ b/frontend/checksupport.icl
@@ -308,7 +308,7 @@ addLocalFunctionDefsToSymbolTable level from_index to_index is_macro_fun fun_def
 		# (fun_def, fun_defs) = fun_defs![from_index]
 		# (symbol_table, error) = addDefToSymbolTable level from_index fun_def.fun_symb (STE_FunctionOrMacro []) symbol_table error
 		| is_macro_fun
-			# fun_defs = {fun_defs & [from_index].fun_info.fi_is_macro_fun=is_macro_fun}
+			# fun_defs = {fun_defs & [from_index].fun_info.fi_properties = fun_def.fun_info.fi_properties bitor FI_IsMacroFun }
 			= addLocalFunctionDefsToSymbolTable level (inc from_index) to_index is_macro_fun fun_defs symbol_table error
 			= addLocalFunctionDefsToSymbolTable level (inc from_index) to_index is_macro_fun fun_defs symbol_table error
 
-- 
cgit v1.2.3