From a26d08cfa6e6397168a5b7ef4e69102242440e4b Mon Sep 17 00:00:00 2001 From: martinw Date: Wed, 14 Jun 2000 10:39:03 +0000 Subject: correcting tiny change of previous revision git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@163 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- frontend/convertcases.icl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'frontend') 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 /**/ -- cgit v1.2.3