diff options
| author | martinw | 2000-06-14 10:23:01 +0000 |
|---|---|---|
| committer | martinw | 2000-06-14 10:23:01 +0000 |
| commit | 7a8288b2f45d999629676c9fda888be9020a11cd (patch) | |
| tree | b476f221dd888a1629e2e987abc61755ca521252 /frontend | |
| parent | fixed bug in boolean case expressions of which first alt may fail (diff) | |
tiny change to make compiler compilable by itself (2.0 parser works either
with our without layout rule, but not with both)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@159 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/convertcases.icl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index cd18fb4..5df1ef9 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -713,7 +713,8 @@ where # (sign_of_then_part, then_part, ci) = convert_boolean_guard bound_vars group_index common_defs alt ci (opt_else_part, ci) = convert_to_else_part bound_vars group_index common_defs has_default sign_of_then_part alts case_default ci */ - # sign_of_then_part = case alt of {{bp_value=BVB bool} -> bool}; + # sign_of_then_part = case alt of + {bp_value=BVB bool} -> bool # (opt_else_part, ci) = convert_to_else_part bound_vars group_index common_defs has_default sign_of_then_part alts case_default ci # (sign_of_then_part, then_part, ci) = convert_boolean_case_then_part bound_vars group_index common_defs default_ptr alt opt_else_part has_default ci /**/ |