From eed36ddb28d5957f4f6a0d0c0f3d2be56ca65a35 Mon Sep 17 00:00:00 2001
From: ronny
Date: Tue, 15 Oct 2002 12:44:28 +0000
Subject: disable arity check to circumvent bug in compiling the module
 relayout.icl in Windows Object IO

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

(limited to 'frontend')

diff --git a/frontend/trans.icl b/frontend/trans.icl
index 46e3d94..f8c9979 100644
--- a/frontend/trans.icl
+++ b/frontend/trans.icl
@@ -1148,7 +1148,7 @@ generateFunction app_symb fd=:{fun_body = TransformedBody {tb_args,tb_rhs},fun_i
 	  
 	  new_fun_arity
 	  		= length new_fun_args
-	| SwitchArityChecks (new_fun_arity > 32) False
+	| False // RWS SwitchArityChecks (new_fun_arity > 32) False
 		# ti = { ti & ti_type_heaps = ti_type_heaps, ti_symbol_heap = ti_symbol_heap, ti_fun_defs = ti_fun_defs
 				, ti_fun_heap = ti_fun_heap, ti_var_heap = ti_var_heap, ti_cons_args = ti_cons_args, ti_type_def_infos = ti_type_def_infos }
 		  ti = { ti & ti_error_file = ti.ti_error_file <<< "Possibly missed fusion oppurtunity: Function Arity > 32 " <<< ro.ro_fun_root.symb_name.id_name <<< "\n"}
-- 
cgit v1.2.3