Commit e6bb857b authored by John van Groningen's avatar John van Groningen
Browse files

copy expr in DictionariesFunction in instance of copy for Expression,

to avoid abort in collectVariables for a BoundVar
parent e69b606d
......@@ -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)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment