From 70c450f6780f7d4232ba3e8e7df529ea9b93bfeb Mon Sep 17 00:00:00 2001
From: martijnv
Date: Fri, 1 Jun 2001 08:50:08 +0000
Subject: The _Module generated for each icl-module conflicted with record of
 name Module because the compiler prefixes it with an underscore. As a result
 multiple defined _Module-symbols were reported by the compiler.

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

(limited to 'frontend')

diff --git a/frontend/parse.icl b/frontend/parse.icl
index 23eb048..f1e6f88 100644
--- a/frontend/parse.icl
+++ b/frontend/parse.icl
@@ -322,7 +322,7 @@ where
 			# (ident,   pState)	= stringToIdent ("_" +++ mod_name +++ "_Module") IC_Type pState
 			# td				= MakeTypeDef ident [] (ConsList []) TA_None [] NoPos
 				
-			# (pc_cons_name, pState) = stringToIdent "_Module" IC_Expression pState
+			# (pc_cons_name, pState) = stringToIdent "__Module" IC_Expression pState
 			# cons
 				= { 
 					pc_cons_name		= pc_cons_name
diff --git a/frontend/predef.icl b/frontend/predef.icl
index 847c279..f9759ca 100644
--- a/frontend/predef.icl
+++ b/frontend/predef.icl
@@ -206,7 +206,7 @@ where
 // MV..
 					<<- ("DynamicTemp",			IC_Type, PD_DynamicTemp)
 //					<<- ("Module",				IC_Type, PD_ModuleType)
-					<<- ("_Module",				IC_Expression, PD_ModuleConsSymbol)
+					<<- ("__Module",			IC_Expression, PD_ModuleConsSymbol)
 // ..MV
 					
 // AA..
-- 
cgit v1.2.3