diff options
| author | johnvg | 2013-04-29 10:35:30 +0000 |
|---|---|---|
| committer | johnvg | 2013-04-29 10:35:30 +0000 |
| commit | eb03f804b88ef9a7b22994fd3e5db9d0d513cfb6 (patch) | |
| tree | 4186f1e67727e43a692c674a311e657ad86d18be /frontend/trans.icl | |
| parent | improve "multiply defined" error, add module names of the definitions to the ... (diff) | |
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
Diffstat (limited to 'frontend/trans.icl')
| -rw-r--r-- | frontend/trans.icl | 4 |
1 files changed, 4 insertions, 0 deletions
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) |