diff options
| -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 |