From 4505f798844949021d529670dde91dcd0d22f9cd Mon Sep 17 00:00:00 2001
From: alimarin
Date: Mon, 3 Jun 2002 09:49:30 +0000
Subject: added constructor/type/field information to generics

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

(limited to 'frontend/postparse.icl')

diff --git a/frontend/postparse.icl b/frontend/postparse.icl
index 40f25b1..d7e4dee 100644
--- a/frontend/postparse.icl
+++ b/frontend/postparse.icl
@@ -1198,20 +1198,20 @@ collectGenericBodies :: !GenericCaseDef ![ParsedDefinition] !*CollectAdmin
 	-> (![ParsedBody], ![ParsedDefinition], !*CollectAdmin)
 collectGenericBodies first_case all_defs=:[PD_GenericCase gc : defs] ca
 	| first_case.gc_name == gc.gc_name && first_case.gc_type_cons == gc.gc_type_cons		
-		# (bodies, rest_defs, ca) = collectGenericBodies first_case defs ca
+		#! (bodies, rest_defs, ca) = collectGenericBodies first_case defs ca
 		# (GCB_ParsedBody args rhs) = gc.gc_body
-		# body = 
+		#! body = 
 			{ pb_args = args
 			, pb_rhs = rhs
 			, pb_position = gc.gc_pos 
 			}
 		| first_case.gc_arity == gc.gc_arity
 			= ([body : bodies ], rest_defs, ca)
-			# msg = "This alternative has " + toString gc.gc_arity + " argument" 
+			#! msg = "This generic alternative has " + toString gc.gc_arity + " argument" 
 				+ (if (gc.gc_arity <> 1) "s" "")+" instead of " + toString first_case.gc_arity
-			# ca = postParseError gc.gc_pos msg ca	
+			#! ca = postParseError gc.gc_pos msg ca	
 			= ([body : bodies ], rest_defs, ca)
-		= ([], all_defs, ca)
+		= ([], all_defs, ca)		
 collectGenericBodies first_case defs ca
 	= ([], defs, ca)
 
-- 
cgit v1.2.3