diff options
| author | ronny | 2002-11-07 15:33:49 +0000 |
|---|---|---|
| committer | ronny | 2002-11-07 15:33:49 +0000 |
| commit | 4919ffd13d03d306663e058517177c55a7850d7c (patch) | |
| tree | dccf69d5a715dcd965283e0461b11c4934c5c978 /frontend/convertcases.icl | |
| parent | correct numbering of type vars in right-hand side dynamics (diff) | |
revert bug fix in convert cases in anticipation of a proper fix
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1269 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/convertcases.icl')
| -rw-r--r-- | frontend/convertcases.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index e55c7f0..a9c2813 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -1288,7 +1288,7 @@ instance convertRootCases Expression where _ -> case case_expr of (Var var) - | not case_explicit && (case ci.ci_case_level of + | not case_explicit || (case ci.ci_case_level of CaseLevelAfterGuardRoot -> False _ -> True) # (varInfo, cs_var_heap) = readPtr var.var_info_ptr cs.cs_var_heap |