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

d336b9a9 · John van Groningen · 0298f8ad · d336b9a9
Commit d336b9a9 authored Apr 19, 2018 by John van Groningen
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 6 deletions

backend/backendconvert.icl backend/backendconvert.icl +6 -6

No files found.
--- a/backend/backendconvert.icl
+++ b/backend/backendconvert.icl
@@ -575,16 +575,16 @@ where
 				removeExpandedTypesFromSelectorType :: SelectorDef -> BackEnder
 				removeExpandedTypesFromSelectorType {sd_type_ptr}
 					= \be0
-						| not (isNilPtr sd_type_ptr)
-							-> write_to_var_heap sd_type_ptr VI_Empty be0
-							-> be0
+						= if (not (isNilPtr sd_type_ptr))
+							(write_to_var_heap sd_type_ptr VI_Empty be0)
+							be0

 				removeExpandedTypesFromConsType :: ConsDef -> BackEnder
 				removeExpandedTypesFromConsType {cons_type_ptr}
 					= \be0
-						| not (isNilPtr cons_type_ptr)
-							-> write_to_var_heap cons_type_ptr VI_Empty be0
-							-> be0
+						= if (not (isNilPtr cons_type_ptr))
+							(write_to_var_heap cons_type_ptr VI_Empty be0)
+							be0

 :: DeclVarsInput :== Ident