From 38098c81804942ff27f3c47e5d7920ad8655e517 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 2 Jul 2010 14:25:22 +0000
Subject: pass Ident name instead of Ident to functions to create generic
 idents in genericsupport

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

(limited to 'frontend/postparse.icl')

diff --git a/frontend/postparse.icl b/frontend/postparse.icl
index 4eb6a1d..29b3a03 100644
--- a/frontend/postparse.icl
+++ b/frontend/postparse.icl
@@ -1440,7 +1440,7 @@ reorganiseDefinitions icl_module [PD_GenericCase gc : defs] cons_count sel_count
 		, pb_position = gc.gc_pos 
 		}
 	#! bodies = [body : bodies ]
-	#! fun_name = genericIdentToFunIdent gc.gc_ident gc.gc_type_cons 
+	#! fun_name = genericIdentToFunIdent gc.gc_ident.id_name gc.gc_type_cons 
 	#! fun = MakeNewImpOrDefFunction fun_name gc.gc_arity bodies (FK_Function cNameNotLocationDependent) NoPrio No gc.gc_pos
 	#! inst = { gc & gc_body = GCB_FunDef fun } 
 	#! c_defs = {c_defs & def_generic_cases = [inst : c_defs.def_generic_cases]}
-- 
cgit v1.2.3