From 5a0a5c2b32519d228b0d7ef786a06c036999e696 Mon Sep 17 00:00:00 2001 From: johnvg Date: Fri, 4 Nov 2011 16:35:09 +0000 Subject: 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 --- frontend/mergecases.icl | 3 +-- 1 file changed, 1 insertion(+), 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 -- cgit v1.2.3