diff options
| author | sjakie | 2000-01-19 12:22:48 +0000 |
|---|---|---|
| committer | sjakie | 2000-01-19 12:22:48 +0000 |
| commit | 101f5e9d1d828d830bb66cf9f7a21318f43272e3 (patch) | |
| tree | 37f70eb508e7b89d3090c7e18900134a0b2d0a67 /frontend/overloading.icl | |
| parent | bugfix: TryScanComment did not work when a single slash was followed by a new... (diff) | |
bug fix (changed syntax tree)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@79 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/overloading.icl')
| -rw-r--r-- | frontend/overloading.icl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/frontend/overloading.icl b/frontend/overloading.icl index 0e51e27..51bdaed 100644 --- a/frontend/overloading.icl +++ b/frontend/overloading.icl @@ -1018,9 +1018,11 @@ where updateExpression group_index type_contexts (expr @ exprs) ui # ((expr, exprs), ui) = updateExpression group_index type_contexts (expr, exprs) ui = (expr @ exprs, ui) - updateExpression group_index type_contexts (Let lad=:{let_binds, let_expr}) ui - # ((let_binds, let_expr), ui) = updateExpression group_index type_contexts (let_binds, let_expr) ui - = (Let {lad & let_binds = let_binds, let_expr = let_expr}, ui) + updateExpression group_index type_contexts (Let lad=:{let_lazy_binds, let_strict_binds, let_expr}) ui + # (let_lazy_binds, ui) = updateExpression group_index type_contexts let_lazy_binds ui + # (let_strict_binds, ui) = updateExpression group_index type_contexts let_strict_binds ui + # (let_expr, ui) = updateExpression group_index type_contexts let_expr ui + = (Let {lad & let_lazy_binds = let_lazy_binds, let_strict_binds = let_strict_binds, let_expr = let_expr}, ui) updateExpression group_index type_contexts (Case kees=:{case_expr,case_guards,case_default}) ui # ((case_expr,(case_guards,case_default)), ui) = updateExpression group_index type_contexts (case_expr,(case_guards,case_default)) ui = (Case { kees & case_expr = case_expr, case_guards = case_guards, case_default = case_default }, ui) |