From ed0702fcf0e20524d153f4c20327845e821b9612 Mon Sep 17 00:00:00 2001
From: martijnv
Date: Mon, 21 Jan 2002 13:55:43 +0000
Subject: bug fix: unused dynamics were not recursively removed from
 fi_dynamics

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

(limited to 'frontend')

diff --git a/frontend/transform.icl b/frontend/transform.icl
index 356e2af..a84da52 100644
--- a/frontend/transform.icl
+++ b/frontend/transform.icl
@@ -1530,7 +1530,8 @@ where
 					= foldSt collect_used_dynmic ptrs ([], cos_symbol_heap)
 				# cos_symbol_heap
 					= writePtr dyn_expr_ptr (EI_DynamicTypeWithVars type_vars dyn_type new_ptrs)
-				-> (used_dynamics, symbol_heap)
+				-> ([dyn_expr_ptr : used_dynamics], symbol_heap)
+
 
 expandCheckedAlternative {ca_rhs, ca_position} ei
 	# (ca_rhs, ei) = expand ca_rhs ei
-- 
cgit v1.2.3