From b79caa1b6c70883a2a43ae2e79bd1ea91530f27e Mon Sep 17 00:00:00 2001
From: johnvg
Date: Tue, 22 Nov 2005 14:27:24 +0000
Subject: removed some code that has no effect

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1574 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/convertDynamics.icl | 17 +++--------------
 1 file changed, 3 insertions(+), 14 deletions(-)

(limited to 'frontend/convertDynamics.icl')

diff --git a/frontend/convertDynamics.icl b/frontend/convertDynamics.icl
index 28b9876..97a0143 100644
--- a/frontend/convertDynamics.icl
+++ b/frontend/convertDynamics.icl
@@ -133,20 +133,9 @@ where
 		  {fun_body, fun_type, fun_info} = fun_def
 		| isEmpty fun_info.fi_dynamics
 			= (fun_defs, ci)
-			
-			// For each function which uses dynamics, a module id is constructed regardless
-			// of its use. In some very specific cases, the let generated here is superfluous.
-			# (TransformedBody fun_body=:{tb_rhs})
-				= fun_body
-			# fun_body
-				= {fun_body & tb_rhs = tb_rhs}
-			# fun_body
-				= TransformedBody fun_body
-			
-			# (unify_subst_var, ci)
-			  	=	newVariable "unify_subst" VI_Empty ci
-			# ci
-				= {ci & ci_type_pattern_var_count = 0, ci_type_var_count = 0}
+
+			# (unify_subst_var, ci) = newVariable "unify_subst" VI_Empty ci
+			# ci = {ci & ci_type_pattern_var_count = 0, ci_type_var_count = 0}
 
 			# (fun_body, ci) = convertDynamics {cinp_st_args = [], cinp_dynamic_representation = dynamic_representation,
 					cinp_subst_var = unify_subst_var} fun_body ci
-- 
cgit v1.2.3