From c4d8e2b01e15b9e6c82b2126395ce7a4a89065f7 Mon Sep 17 00:00:00 2001
From: martijnv
Date: Fri, 2 Mar 2001 09:25:48 +0000
Subject: no message

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

(limited to 'frontend')

diff --git a/frontend/convertDynamics.icl b/frontend/convertDynamics.icl
index 1db6161..2fdc1eb 100644
--- a/frontend/convertDynamics.icl
+++ b/frontend/convertDynamics.icl
@@ -696,7 +696,7 @@ where
 				_
 					-> abort "!!!!"
 */		
-		# sel_type = Selection No (Var coerce_result_var) [RecordSelection type_defined_symbol sd_type_field_nr]
+//		# sel_type = Selection No (Var coerce_result_var) [RecordSelection type_defined_symbol sd_type_field_nr]
 	
 		# let_expr
 			= Let {
@@ -808,7 +808,7 @@ where
 		  (let_binds, ci) 		= bind_indirection_var ind_var unify_result_var twotuple ci
 		  a_ij_binds			= add_x_i_bind opened_dynamic.opened_dynamic_expr dp_var a_ij_binds
 		  
-		  sel_type	= Selection No (Var unify_result_var) [RecordSelection type_defined_symbol sd_type_field_nr]
+//		  sel_type	= Selection No (Var unify_result_var) [RecordSelection type_defined_symbol sd_type_field_nr]
 
 		  let_expr = Let {	let_strict_binds = [],
 // MW0		  					let_lazy_binds = [{ bind_src = App { app_symb = unify_symb,  app_args = [opened_dynamic.opened_dynamic_type, type_code],  app_info_ptr = nilPtr },
-- 
cgit v1.2.3