diff options
| author | martinw | 2000-06-14 10:39:03 +0000 |
|---|---|---|
| committer | martinw | 2000-06-14 10:39:03 +0000 |
| commit | a26d08cfa6e6397168a5b7ef4e69102242440e4b (patch) | |
| tree | aad3680129465d9c21cdb525d6ab1ce0e91971f4 | |
| parent | bugfix: the compiler was unable to deal with macros that called a local (diff) | |
correcting tiny change of previous revision
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@163 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/convertcases.icl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index 5df1ef9..fb417c8 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -713,8 +713,7 @@ 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 /**/ |