From ffb89df719963e49bc75c17f01f46198d3f98668 Mon Sep 17 00:00:00 2001
From: martijnv
Date: Fri, 9 Jun 2000 12:23:29 +0000
Subject: predef.icl: StdDynamics has become StdDynamic postparse.icl:
 Propagation continues with dynamic expression                       instead
 of halting

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@154 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/postparse.icl | 5 +++++
 frontend/predef.icl    | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

(limited to 'frontend')

diff --git a/frontend/postparse.icl b/frontend/postparse.icl
index f4b8735..51ebcf8 100644
--- a/frontend/postparse.icl
+++ b/frontend/postparse.icl
@@ -173,6 +173,11 @@ where
 		= collectFunctions (transformSequence sequence ca_predefs) ca
 	collectFunctions (PE_ArrayDenot exprs) ca=:{ca_predefs}
 		= collectFunctions (transformArrayDenot exprs ca_predefs) ca
+// MV ..
+	collectFunctions (PE_Dynamic exprs opt_dyn_type) ca
+		# (exprs, ca) = collectFunctions exprs ca
+		= (PE_Dynamic exprs opt_dyn_type, ca)
+// .. MV
 	collectFunctions expr ca
 		= (expr, ca)
 
diff --git a/frontend/predef.icl b/frontend/predef.icl
index b3ea69c..277896a 100644
--- a/frontend/predef.icl
+++ b/frontend/predef.icl
@@ -150,7 +150,7 @@ where
 					<<- ("P_laceholder",		IC_Expression, PD_variablePlaceholder)
 					<<- ("_unify",				IC_Expression, PD_unify)
 					<<-	("_coerce",				IC_Expression, PD_coerce) /* MV */
-					<<- ("StdDynamics",			IC_Module, PD_StdDynamics)
+					<<- ("StdDynamic",			IC_Module, PD_StdDynamics)
 					<<- ("_undo_indirections",	IC_Expression, PD_undo_indirections)
 					<<- ("Start",				IC_Expression, PD_Start)
 
-- 
cgit v1.2.3