From 5cc1b032fb9249875559d81fccaa5bc4a142e3da Mon Sep 17 00:00:00 2001
From: ronny
Date: Thu, 12 Jul 2001 12:31:27 +0000
Subject: removed MW comments

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@539 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backend/backendconvert.icl | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl
index 4cccf9b..7ef7ff4 100644
--- a/backend/backendconvert.icl
+++ b/backend/backendconvert.icl
@@ -1411,7 +1411,6 @@ defineLhsNodeDef freeVar pattern nodeDefs varHeap
 			(beNodeDef variable_sequence_number (convertPattern pattern varHeap))
 			(return nodeDefs) be
 
-// MW0 collectNodeDefs :: Ident Expression -> [Bind Expression FreeVar]
 collectNodeDefs :: Ident Expression -> [LetBind]
 collectNodeDefs aliasDummyId (Let {let_strict_binds, let_lazy_binds})
 	= filterStrictAlias let_strict_binds let_lazy_binds
@@ -1437,21 +1436,17 @@ convertRhsNodeDefs :: Ident Expression Int VarHeap -> BEMonad BENodeDefP
 convertRhsNodeDefs aliasDummyId expr main_dcl_module_n varHeap
 	=	convertNodeDefs (collectNodeDefs aliasDummyId expr) varHeap
 where
-// MW0	convertNodeDefs :: [Bind Expression FreeVar] VarHeap -> BEMonad BENodeDefP
 	convertNodeDefs :: [LetBind] VarHeap -> BEMonad BENodeDefP
 	convertNodeDefs binds varHeap
 		=	sfoldr (beNodeDefs o flip convertNodeDef varHeap) beNoNodeDefs binds
 		where
-// MW0			convertNodeDef :: !(Bind Expression FreeVar) VarHeap -> BEMonad BENodeDefP
 			convertNodeDef :: !LetBind VarHeap -> BEMonad BENodeDefP
-// MW0			convertNodeDef {bind_src=expr, bind_dst=freeVar} varHeap
 			convertNodeDef {lb_src=expr, lb_dst=freeVar} varHeap
 				= \be0 -> let (variable_sequence_number,be) = getVariableSequenceNumber freeVar.fv_info_ptr varHeap be0 in
 					beNodeDef variable_sequence_number (convertExpr expr main_dcl_module_n varHeap) be
 
 collectStrictNodeIds :: Expression -> [FreeVar]
 collectStrictNodeIds (Let {let_strict_binds, let_expr})
-// MW0	=	[bind_dst \\ {bind_dst} <- let_strict_binds]
 	=	[lb_dst \\ {lb_dst} <- let_strict_binds]
 collectStrictNodeIds _
 	=	[]
-- 
cgit v1.2.3