diff options
| author | ronny | 2002-09-20 12:47:16 +0000 |
|---|---|---|
| committer | ronny | 2002-09-20 12:47:16 +0000 |
| commit | 5fad96c357ec1eb7c3ac92f906ec2e6ef010f4d5 (patch) | |
| tree | 934d57529497771c942ee8bcb268f3def9aae27e | |
| parent | moved var info definitions to the modules where they are used (diff) | |
fixed bug in mergecases for dynamics (result from a failed experiment)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1205 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/mergecases.icl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/frontend/mergecases.icl b/frontend/mergecases.icl index 193a933..f99dc59 100644 --- a/frontend/mergecases.icl +++ b/frontend/mergecases.icl @@ -94,8 +94,7 @@ where No -> (No, var_heap, symbol_heap) DynamicPatterns [dynamic_pattern] -/* - Don't merge dynamic cases, as a work around for the following case +/* Don't merge dynamic cases, as a work around for the following case apply :: Dynamic Dynamic -> Int apply _ (_ :: Int) = 1 @@ -120,10 +119,10 @@ where -> (Yes cees, var_heap, symbol_heap) No - + */ -> (No, var_heap, symbol_heap) _ -*/ -> (No, var_heap, symbol_heap) + -> (No, var_heap, symbol_heap) | otherwise = (No, var_heap, symbol_heap) split_case split_var_info_ptr (Let lad=:{let_expr,let_strict_binds,let_lazy_binds}) var_heap symbol_heap |