diff options
| author | sjakie | 2003-01-08 14:55:59 +0000 |
|---|---|---|
| committer | sjakie | 2003-01-08 14:55:59 +0000 |
| commit | 641daa3443c53a63ba081011d922e50ec9e66917 (patch) | |
| tree | 94c1c4f936850d7ffd093eac4b7e54f08b1b78b7 /frontend/transform.icl | |
| parent | remove rhs of alternative with an AP_Empty pattern, to prevent (diff) | |
Bug fix: uniqueness error in records
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1308 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/transform.icl')
| -rw-r--r-- | frontend/transform.icl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/frontend/transform.icl b/frontend/transform.icl index 460d907..c7326c0 100644 --- a/frontend/transform.icl +++ b/frontend/transform.icl @@ -2111,7 +2111,8 @@ where instance collectVariables BoundVar where collectVariables var=:{var_name,var_info_ptr,var_expr_ptr} free_vars dynamics cos=:{cos_var_heap} - #! var_info = sreadPtr var_info_ptr cos_var_heap + # (var_info, cos_var_heap) = readPtr var_info_ptr cos_var_heap + cos = { cos & cos_var_heap = cos_var_heap } = case var_info of VI_Alias alias # (original, free_vars, dynamics, cos) = collectVariables alias free_vars dynamics cos |