diff options
| author | ronny | 2002-11-12 21:14:52 +0000 |
|---|---|---|
| committer | ronny | 2002-11-12 21:14:52 +0000 |
| commit | 52676a511fbe6986defe25332eee8cc9548d1c6a (patch) | |
| tree | b58961954213853ea337154cab5a7d35c40fb36e /frontend | |
| parent | bugs fixed in generics (diff) | |
mark boolean case as not explicit to prevent introducing a function
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1274 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/transform.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/transform.icl b/frontend/transform.icl index 3880b9d..1c07f77 100644 --- a/frontend/transform.icl +++ b/frontend/transform.icl @@ -1818,7 +1818,7 @@ where # (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}], 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}); two_args [_,_] |