diff options
| author | sjakie | 1999-11-09 09:44:07 +0000 |
|---|---|---|
| committer | sjakie | 1999-11-09 09:44:07 +0000 |
| commit | d26e8624e0a08cf958a9a71f05ba5dce20e647e9 (patch) | |
| tree | 58bc8237be809798eb79ef381c3e0a7e7667f7c0 | |
| parent | minor (diff) | |
bug fix: missing alternative in 'instance distributeLets Selection'
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@39 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/convertcases.icl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index 909209c..22ec9b4 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -1414,6 +1414,10 @@ where distributeLets depth (ArraySelection selector expr_ptr expr) cp_info # (expr, cp_info) = distributeLets depth expr cp_info = (ArraySelection selector expr_ptr expr, cp_info) + distributeLets depth (DictionarySelection var selectors expr_ptr expr) cp_info + # (selectors, cp_info) = distributeLets depth selectors cp_info + # (expr, cp_info) = distributeLets depth expr cp_info + = (DictionarySelection var selectors expr_ptr expr, cp_info) distributeLets depth selection cp_info = (selection, cp_info) |