From 4c5752008b03b4c22783f4d2ef150be42930b47f Mon Sep 17 00:00:00 2001 From: martinw Date: Wed, 17 May 2000 14:04:37 +0000 Subject: accepting changes git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@140 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- frontend/transform.icl | 2 -- 1 file changed, 2 deletions(-) (limited to 'frontend') diff --git a/frontend/transform.icl b/frontend/transform.icl index 32a3a26..d6a34d9 100644 --- a/frontend/transform.icl +++ b/frontend/transform.icl @@ -1303,11 +1303,9 @@ where collectVariables (MatchExpr opt_tuple cons_symb expr) free_vars cos # (expr, free_vars, cos) = collectVariables expr free_vars cos = (MatchExpr opt_tuple cons_symb expr, free_vars, cos) -// MV .. collectVariables (DynamicExpr dynamic_expr=:{dyn_expr}) free_vars cos #! (dyn_expr, free_vars, cos) = collectVariables dyn_expr free_vars cos = (DynamicExpr {dynamic_expr & dyn_expr = dyn_expr}, free_vars, cos); -// .. MV collectVariables expr free_vars cos = (expr, free_vars, cos) -- cgit v1.2.3