diff options
| author | johnvg | 2001-12-13 12:27:32 +0000 |
|---|---|---|
| committer | johnvg | 2001-12-13 12:27:32 +0000 |
| commit | 83a334aa9824aff2756925db9f3fadc94a2c140a (patch) | |
| tree | 5a41f0b156342a1e37ab0abd1534d1629c92576c /frontend/refmark.icl | |
| parent | Lifting of dynamic expressions repaired (diff) | |
remove tuple symbol from UniqueSelector (! selector) and MatchExpr
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@935 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/refmark.icl')
| -rw-r--r-- | frontend/refmark.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/refmark.icl b/frontend/refmark.icl index dcf9f23..bf765c3 100644 --- a/frontend/refmark.icl +++ b/frontend/refmark.icl @@ -250,7 +250,7 @@ where refMark free_vars sel _ (TupleSelect _ arg_nr expr) var_heap = refMark free_vars arg_nr No expr var_heap - refMark free_vars sel _ (MatchExpr _ _ expr) var_heap + refMark free_vars sel _ (MatchExpr _ expr) var_heap = refMark free_vars sel No expr var_heap refMark free_vars sel _ EE var_heap = var_heap |