From e30e3637faa05d9d1fd46dabb6645fdefad76f2f Mon Sep 17 00:00:00 2001
From: martinw
Date: Tue, 12 Sep 2000 12:33:54 +0000
Subject: small bugfix

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@210 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/transform.icl | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'frontend')

diff --git a/frontend/transform.icl b/frontend/transform.icl
index 57dd93b..42dee93 100644
--- a/frontend/transform.icl
+++ b/frontend/transform.icl
@@ -269,9 +269,18 @@ where
 	unfold (MatchExpr opt_tuple cons_symb expr) us
 		# (expr, us) = unfold expr us
 		= (MatchExpr opt_tuple cons_symb expr, us)
+	unfold (DynamicExpr expr) us
+		# (expr, us) = unfold expr us
+		= (DynamicExpr expr, us)
 	unfold expr us
 		= (expr, us)
 
+instance unfold DynamicExpr
+where
+	unfold expr=:{dyn_expr} us
+		# (dyn_expr, us) = unfold dyn_expr us
+		= ({ expr & dyn_expr = dyn_expr }, us)
+
 /* Sjaak ... */
 instance unfold Selection
 where
-- 
cgit v1.2.3