diff options
| author | martinw | 2000-09-12 12:33:54 +0000 |
|---|---|---|
| committer | martinw | 2000-09-12 12:33:54 +0000 |
| commit | e30e3637faa05d9d1fd46dabb6645fdefad76f2f (patch) | |
| tree | 689cb68f8170abbf4d399b349f50e0a328cddcad /frontend | |
| parent | adjusted treatment of lazy and strict array functions (diff) | |
small bugfix
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@210 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/transform.icl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/frontend/transform.icl b/frontend/transform.icl index 57dd93b..42dee93 100644 --- a/frontend/transform.icl +++ b/frontend/transform.icl @@ -269,9 +269,18 @@ where unfold (MatchExpr opt_tuple cons_symb expr) us # (expr, us) = unfold expr us = (MatchExpr opt_tuple cons_symb expr, us) + unfold (DynamicExpr expr) us + # (expr, us) = unfold expr us + = (DynamicExpr expr, us) unfold expr us = (expr, us) +instance unfold DynamicExpr +where + unfold expr=:{dyn_expr} us + # (dyn_expr, us) = unfold dyn_expr us + = ({ expr & dyn_expr = dyn_expr }, us) + /* Sjaak ... */ instance unfold Selection where |