diff options
| author | ronny | 2002-11-21 15:50:27 +0000 |
|---|---|---|
| committer | ronny | 2002-11-21 15:50:27 +0000 |
| commit | e014285ffbc1111bd6b3d81f53a0c95345acdf81 (patch) | |
| tree | 4aa61b5388be439c880adacd12927fc05a4ed06e /frontend/convertcases.icl | |
| parent | fix crash that occurs if there is not enough memory (diff) | |
bug fix: handle FailExpr in copy
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1287 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/convertcases.icl')
| -rw-r--r-- | frontend/convertcases.icl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index ecc658c..6f70852 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -2003,6 +2003,8 @@ where copy (TupleSelect tuple_symbol arg_nr expr) cp_info # (expr, cp_info) = copy expr cp_info = (TupleSelect tuple_symbol arg_nr expr, cp_info) + copy fail=:(FailExpr _) cp_info + = (fail, cp_info) copy EE cp_info = (EE, cp_info) copy (NoBind ptr) cp_info @@ -2112,9 +2114,7 @@ where (-*->) infixl (-*->) a b :== a // ---> b - //import RWSDebug - (->>) infixl (->>) a b :== a // ---> b (<<-) infixl |