diff options
| author | ronny | 2001-05-11 10:01:14 +0000 |
|---|---|---|
| committer | ronny | 2001-05-11 10:01:14 +0000 |
| commit | f5770cc572d739635be0dbd20f24edaca9a4e5f4 (patch) | |
| tree | f65eb04f728fb225e5a5fdfba830b24b3466a934 | |
| parent | I wanted to commit this together with the icl file, but it didn't fit (diff) | |
fixed bug in convertCases Let (introduced in previous commit)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@427 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -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 b7b17c4..7972af1 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -66,7 +66,7 @@ where cs = { cs & cs_expr_heap = cs_expr_heap } = case let_info of EI_LetType let_type - # bound_vars = addLetVars (let_strict_binds ++ let_lazy_binds) let_type bound_vars + # ci = {ci & ci_bound_vars=addLetVars (let_strict_binds ++ let_lazy_binds) let_type ci.ci_bound_vars} # (let_strict_binds, cs) = convertCases ci let_strict_binds cs # (let_lazy_binds, cs) = convertCases ci let_lazy_binds cs # (let_expr, cs) = convertCases ci let_expr cs |