From 584f177a22d7f97ff7c7abd4e196510fb7e42edf Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 5 Sep 2001 15:04:11 +0000
Subject: moved function getBelongingSymbolsFromID from checksupport to
 explicitimports moved function get_ident from checksupport to check

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

(limited to 'frontend/checksupport.icl')

diff --git a/frontend/checksupport.icl b/frontend/checksupport.icl
index 56025e0..b7d43ff 100644
--- a/frontend/checksupport.icl
+++ b/frontend/checksupport.icl
@@ -540,20 +540,6 @@ local_declaration_for_import decl=:(Declaration {decl_kind=STE_Imported _ _}) mo
 local_declaration_for_import decl=:(Declaration declaration_record=:{decl_kind}) module_n
 	= Declaration {declaration_record & decl_kind = STE_Imported decl_kind module_n}
 
-	
-get_ident :: !ImportDeclaration -> Ident
-get_ident (ID_Function {ii_ident})						= ii_ident
-get_ident (ID_Class {ii_ident} _)						= ii_ident
-get_ident (ID_Type {ii_ident} _)						= ii_ident
-get_ident (ID_Record {ii_ident} _)						= ii_ident
-get_ident (ID_Instance class_ident instance_ident _)	= instance_ident
-
-getBelongingSymbolsFromID :: !ImportDeclaration -> Optional [ImportedIdent]
-getBelongingSymbolsFromID (ID_Class _ x)						= x
-getBelongingSymbolsFromID (ID_Type _ x)						= x
-getBelongingSymbolsFromID (ID_Record _ x)						= x
-getBelongingSymbolsFromID _									= No
-
 class toIdent a :: !a -> Ident
 
 instance toIdent SymbIdent
-- 
cgit v1.2.3