From eb03f804b88ef9a7b22994fd3e5db9d0d513cfb6 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 29 Apr 2013 10:35:30 +0000
Subject: copy expr in DictionariesFunction in instance of copy for Expression,
 to avoid abort in collectVariables for a BoundVar

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

(limited to 'frontend')

diff --git a/frontend/trans.icl b/frontend/trans.icl
index 67173eb..aea15e1 100644
--- a/frontend/trans.icl
+++ b/frontend/trans.icl
@@ -4921,6 +4921,10 @@ where
 	copy (TypeSignature type_function expr) ci cs
 		# (expr, cs) = copy expr ci cs
 		= (TypeSignature type_function expr, cs)
+	copy (DictionariesFunction dictionaries expr expr_type) ci cs
+		// the variables in dictionaries are not copied
+		# (expr, cs) = copy expr ci cs
+		= (DictionariesFunction dictionaries expr expr_type,cs)
 	copy expr ci cs
 		= (expr, cs)
 
-- 
cgit v1.2.3