Commit fd403f14 authored by Martijn Vervoort's avatar Martijn Vervoort
Browse files

bug fix in nf

parent 8444dbd4
...@@ -244,7 +244,7 @@ checkTypeDef /* TD */ is_dcl_module type_index module_index ts=:{ts_type_defs} t ...@@ -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 // 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. // comparison by the static linker easier.
# (cs=:{cs_error}) # (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 // | FB (not is_dcl_module) ("checkTypeDef: " +++ td_name.id_name) True
# #
// ... TD // ... TD
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment