From b34b8dd72da458f849ea90e8c1f04b6fd471b7e4 Mon Sep 17 00:00:00 2001 From: martijnv Date: Mon, 26 Mar 2001 07:51:11 +0000 Subject: bug fix in nf git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@340 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- frontend/checktypes.icl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'frontend') diff --git a/frontend/checktypes.icl b/frontend/checktypes.icl index 844a04a..932b01e 100644 --- a/frontend/checktypes.icl +++ b/frontend/checktypes.icl @@ -244,7 +244,7 @@ checkTypeDef /* TD */ is_dcl_module type_index module_index ts=:{ts_type_defs} t // in case of an icl-module, the arguments i.e. the type variables of type constructors are normalized which makes // comparison by the static linker easier. # (cs=:{cs_error}) - = { cs & cs_x = { cs.cs_x & x_is_dcl_module = is_dcl_module, x_type_var_position = 0 } } + = { cs & cs_x = { cs.cs_x & x_is_dcl_module = /*is_dcl_module*/ True, x_type_var_position = 0 } } // | FB (not is_dcl_module) ("checkTypeDef: " +++ td_name.id_name) True # // ... TD -- cgit v1.2.3