From fa42455a5bf145732a386d88b37a2fec05f253b7 Mon Sep 17 00:00:00 2001 From: ronny Date: Tue, 8 May 2001 13:30:03 +0000 Subject: replaced call to my_zip by exactZip, removed definition my_zip git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@401 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- frontend/convertcases.icl | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'frontend') diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index 566bb4e..879ae4a 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -1289,9 +1289,6 @@ where = (EE, dl_info) distributeLets depth (NoBind ptr) dl_info = (NoBind ptr, dl_info) - -my_zip [] [] = [] -my_zip [x:xs][y:ys] = [(x,y) : my_zip xs ys] instance distributeLets Case where @@ -1307,7 +1304,7 @@ where = ({ kees & case_guards = case_guards, case_expr = case_expr, case_default = case_default }, dl_info) where distribute_lets_in_patterns depth ref_counts (AlgebraicPatterns conses patterns) heaps - # (patterns, heaps) = mapSt (distribute_lets_in_alg_pattern depth) (my_zip ref_counts patterns) heaps + # (patterns, heaps) = mapSt (distribute_lets_in_alg_pattern depth) (exactZip ref_counts patterns) heaps = (AlgebraicPatterns conses patterns, heaps) where distribute_lets_in_alg_pattern depth (ref_counts,pattern) (di_var_heap, di_expr_heap) -- cgit v1.2.3