diff options
| author | johnvg | 2011-11-04 16:35:09 +0000 |
|---|---|---|
| committer | johnvg | 2011-11-04 16:35:09 +0000 |
| commit | 5a0a5c2b32519d228b0d7ef786a06c036999e696 (patch) | |
| tree | 1585d7bdb45e922ce8b9f3cd084e8eadcc5c2c00 | |
| parent | remove differences in layout between the compiler and the iTask compiler, (diff) | |
remove differences in layout between the compiler and the iTask compiler
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1995 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/mergecases.icl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/frontend/mergecases.icl b/frontend/mergecases.icl index 78f06a9..554d185 100644 --- a/frontend/mergecases.icl +++ b/frontend/mergecases.icl @@ -25,9 +25,8 @@ instance GetSetPatternRhs DynamicPattern get_pattern_rhs p = p.dp_rhs set_pattern_rhs p expr = {p & dp_rhs=expr} - mergeCases :: !(!Expression, !Position) ![(!Expression, !Position)] !*VarHeap !*ExpressionHeap !*ErrorAdmin - -> *(!(!Expression, !Position), !*VarHeap, !*ExpressionHeap, !*ErrorAdmin) + -> *(!(!Expression, !Position), !*VarHeap,!*ExpressionHeap,!*ErrorAdmin) mergeCases expr_and_pos [] var_heap symbol_heap error = (expr_and_pos, var_heap, symbol_heap, error) mergeCases (Let lad=:{let_expr}, pos) exprs var_heap symbol_heap error |