From b9d3c2066f3cd10cf0fcda8fb2a6148b6a93ad88 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 17 Jun 2002 11:53:07 +0000
Subject: removed ignored !'s

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

(limited to 'frontend/genericsupport.icl')

diff --git a/frontend/genericsupport.icl b/frontend/genericsupport.icl
index 2e42006..ba2877d 100644
--- a/frontend/genericsupport.icl
+++ b/frontend/genericsupport.icl
@@ -52,7 +52,7 @@ getGenericClass gen kind modules generic_heap
 			-> (Yes class_glob, generic_heap)
 
 				 
-lookupGenericClassInfo :: !TypeKind !GenericClassInfos	-> !(Optional GenericClassInfo)
+lookupGenericClassInfo :: !TypeKind !GenericClassInfos	-> (Optional GenericClassInfo)
 lookupGenericClassInfo kind class_infos
 	#! hash_index = case kind of
 		KindConst -> 0
@@ -64,7 +64,7 @@ where
 		| gci.gci_kind == kind 	= Yes gci
 								= lookup kind gcis
 
-addGenericClassInfo :: !GenericClassInfo !GenericClassInfos -> !GenericClassInfos
+addGenericClassInfo :: !GenericClassInfo !GenericClassInfos -> GenericClassInfos
 addGenericClassInfo class_info=:{gci_kind} class_infos
 	#! hash_index = case gci_kind of
 		KindConst -> 0
@@ -76,13 +76,13 @@ addGenericClassInfo class_info=:{gci_kind} class_infos
 //****************************************************************************************
 //	Ident Helpers
 //****************************************************************************************
-makeIdent :: !String -> !Ident
+makeIdent :: !String -> Ident
 makeIdent str = {id_name = str, id_info = nilPtr} 
 
-postfixIdent :: !Ident !String -> !Ident
+postfixIdent :: !Ident !String -> Ident
 postfixIdent {id_name} postfix = makeIdent (id_name +++ postfix)
 
-genericIdentToClassIdent :: !Ident !TypeKind -> !Ident
+genericIdentToClassIdent :: !Ident !TypeKind -> Ident
 genericIdentToClassIdent gen_name kind
 	= postfixIdent gen_name ("_" +++ kind_to_str kind) 
 where
@@ -93,11 +93,11 @@ where
 	kinds_to_str [KindConst:ks] = "s" +++ kinds_to_str ks
 	kinds_to_str [k:ks] = "o" +++ (kind_to_str k) +++ "c" +++ kinds_to_str ks	
 
-genericIdentToMemberIdent :: !Ident !TypeKind -> !Ident
+genericIdentToMemberIdent :: !Ident !TypeKind -> Ident
 genericIdentToMemberIdent gen_name kind
 	= genericIdentToClassIdent gen_name kind
 
-genericIdentToFunIdent :: !Ident !TypeCons -> !Ident
+genericIdentToFunIdent :: !Ident !TypeCons -> Ident
 genericIdentToFunIdent gen_name type_cons
 	= postfixIdent gen_name ("_" +++ type_cons_to_str type_cons)
 where
-- 
cgit v1.2.3