diff options
| author | martijnv | 2000-05-16 13:45:20 +0000 |
|---|---|---|
| committer | martijnv | 2000-05-16 13:45:20 +0000 |
| commit | 65092e7d0581af55155d4f089129eecc20519092 (patch) | |
| tree | 4df060338323ce59381815d012b3bb759cefe862 | |
| parent | bug fix (uniqueness attributes) (diff) | |
bugfix in transform.icl (line 1306): the reference count in collectVariables
did not recognise a dynamic.
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@138 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/transform.icl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/frontend/transform.icl b/frontend/transform.icl index cd48ae0..32a3a26 100644 --- a/frontend/transform.icl +++ b/frontend/transform.icl @@ -1303,6 +1303,11 @@ where collectVariables (MatchExpr opt_tuple cons_symb expr) free_vars cos # (expr, free_vars, cos) = collectVariables expr free_vars cos = (MatchExpr opt_tuple cons_symb expr, free_vars, cos) +// MV .. + collectVariables (DynamicExpr dynamic_expr=:{dyn_expr}) free_vars cos + #! (dyn_expr, free_vars, cos) = collectVariables dyn_expr free_vars cos + = (DynamicExpr {dynamic_expr & dyn_expr = dyn_expr}, free_vars, cos); +// .. MV collectVariables expr free_vars cos = (expr, free_vars, cos) |