From 9188b6366a7bb5dc4ba05d08f08cfa0e80f1923e Mon Sep 17 00:00:00 2001
From: ronny
Date: Mon, 2 Sep 2002 13:52:33 +0000
Subject: expand macros in dynamic expressions

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1194 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 432829c..988b2ef 100644
--- a/frontend/transform.icl
+++ b/frontend/transform.icl
@@ -1599,6 +1599,9 @@ where
 	expand (MatchExpr cons_symb expr) ei
 		# (expr, ei) = expand expr ei
 		= (MatchExpr cons_symb expr, ei)
+	expand (DynamicExpr dyn) ei
+		# (dyn, ei) = expand dyn ei
+		= (DynamicExpr dyn, ei)
 	expand expr ei
 		= (expr, ei)
 
@@ -1700,6 +1703,12 @@ where
 		# (dp_rhs, ei) = expand dp_rhs ei
 		= ({ dyn_pattern & dp_rhs = dp_rhs }, ei)
 
+instance expand DynamicExpr
+where
+	expand (dyn=:{dyn_expr}) ei
+		# (dyn_expr, ei) = expand dyn_expr ei
+		= ({dyn & dyn_expr = dyn_expr}, ei)
+
 instance expand [a] | expand a
 where
 	expand [x:xs] ei
-- 
cgit v1.2.3