diff options
| author | johnvg | 2010-02-09 13:12:38 +0000 |
|---|---|---|
| committer | johnvg | 2010-02-09 13:12:38 +0000 |
| commit | de83358143c850245b892193b330a06effdb99a7 (patch) | |
| tree | aae6c3e8487264ddc62b005529b3bbfebdd29e7d /frontend/trans.icl | |
| parent | unfold curried producers that are also normal producers if the producer (diff) | |
allow VI_ExpressionOrBody in instance clearVariables BoundVar
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1782 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/trans.icl')
| -rw-r--r-- | frontend/trans.icl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/frontend/trans.icl b/frontend/trans.icl index 441f1ca..335e0c9 100644 --- a/frontend/trans.icl +++ b/frontend/trans.icl @@ -4183,13 +4183,15 @@ where clearVariables bound_var=:{var_info_ptr} var_heap # (var_info, var_heap) = readVarInfo var_info_ptr var_heap = case var_info of - (VI_UsedVar _) -> writeVarInfo var_info_ptr VI_Empty var_heap + VI_UsedVar _ -> writeVarInfo var_info_ptr VI_Empty var_heap VI_LocalVar -> writeVarInfo var_info_ptr VI_Empty var_heap VI_Empty -> var_heap VI_Expression _ -> writeVarInfo var_info_ptr VI_Empty var_heap VI_Dictionary _ _ _ -> writeVarInfo var_info_ptr VI_Empty var_heap VI_Variable _ _ -> writeVarInfo var_info_ptr VI_Empty var_heap VI_AccVar _ _ -> writeVarInfo var_info_ptr VI_Empty var_heap + VI_ExpressionOrBody _ _ _ _ + -> writeVarInfo var_info_ptr VI_Empty var_heap instance clearVariables Expression where |