Commit c2fe6aa1 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏢
Browse files

mark boolean case as not explicit to prevent introducing a function

parent 93564950
...@@ -1818,7 +1818,7 @@ where ...@@ -1818,7 +1818,7 @@ where
# (new_info_ptr,symbol_heap) = newPtr (EI_CaseType case_type) cos.cos_symbol_heap # (new_info_ptr,symbol_heap) = newPtr (EI_CaseType case_type) cos.cos_symbol_heap
# kase = Case { case_expr=e1, case_guards=BasicPatterns BT_Bool [{bp_value=BVB True,bp_expr=e2,bp_position=NoPos}], # kase = Case { case_expr=e1, case_guards=BasicPatterns BT_Bool [{bp_value=BVB True,bp_expr=e2,bp_position=NoPos}],
case_default=Yes e3, case_ident=No, case_info_ptr=new_info_ptr, case_default_pos = NoPos, case_default=Yes e3, case_ident=No, case_info_ptr=new_info_ptr, case_default_pos = NoPos,
case_explicit = True } case_explicit = False }
= (kase,{cos & cos_symbol_heap=symbol_heap}); = (kase,{cos & cos_symbol_heap=symbol_heap});
two_args [_,_] two_args [_,_]
......
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