aboutsummaryrefslogtreecommitdiff
path: root/frontend/transform.dcl
diff options
context:
space:
mode:
authormartinw1999-10-18 10:20:25 +0000
committermartinw1999-10-18 10:20:25 +0000
commit39e20be61569d541feb51f3ef9333a7e4728b66b (patch)
tree1d318c6059e0c01e2924308ba740991f7ebce776 /frontend/transform.dcl
parentcases in lets fixed (diff)
lots of changes in module trans to make fusion work.
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@16 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/transform.dcl')
-rw-r--r--frontend/transform.dcl3
1 files changed, 2 insertions, 1 deletions
diff --git a/frontend/transform.dcl b/frontend/transform.dcl
index 79e47e8..f285c3b 100644
--- a/frontend/transform.dcl
+++ b/frontend/transform.dcl
@@ -15,11 +15,12 @@ partitionateMacros :: !IndexRange !Index !*{# FunDef} !u:{# DclModule} !*VarHeap
:: UnfoldState =
{ us_var_heap :: !.VarHeap
, us_symbol_heap :: !.ExpressionHeap
+ , us_cleanup_info :: ![ExprInfoPtr]
}
class unfold a :: !a !*UnfoldState -> (!a, !*UnfoldState)
-instance unfold Expression//, PatternExpression
+instance unfold Expression, CasePatterns