Commit d336b9a9 authored by John van Groningen's avatar John van Groningen
Browse files

don't use lambdas with a guard because the bootstrap compiler does not yet support this

parent 0298f8ad
...@@ -575,16 +575,16 @@ where ...@@ -575,16 +575,16 @@ where
removeExpandedTypesFromSelectorType :: SelectorDef -> BackEnder removeExpandedTypesFromSelectorType :: SelectorDef -> BackEnder
removeExpandedTypesFromSelectorType {sd_type_ptr} removeExpandedTypesFromSelectorType {sd_type_ptr}
= \be0 = \be0
| not (isNilPtr sd_type_ptr) = if (not (isNilPtr sd_type_ptr))
-> write_to_var_heap sd_type_ptr VI_Empty be0 (write_to_var_heap sd_type_ptr VI_Empty be0)
-> be0 be0
removeExpandedTypesFromConsType :: ConsDef -> BackEnder removeExpandedTypesFromConsType :: ConsDef -> BackEnder
removeExpandedTypesFromConsType {cons_type_ptr} removeExpandedTypesFromConsType {cons_type_ptr}
= \be0 = \be0
| not (isNilPtr cons_type_ptr) = if (not (isNilPtr cons_type_ptr))
-> write_to_var_heap cons_type_ptr VI_Empty be0 (write_to_var_heap cons_type_ptr VI_Empty be0)
-> be0 be0
:: DeclVarsInput :== Ident :: DeclVarsInput :== Ident
......
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