diff options
| author | johnvg | 2001-09-05 15:04:11 +0000 |
|---|---|---|
| committer | johnvg | 2001-09-05 15:04:11 +0000 |
| commit | 584f177a22d7f97ff7c7abd4e196510fb7e42edf (patch) | |
| tree | 1af3ff6e1942e4b9b138840c10ad993691268723 /frontend/checksupport.icl | |
| parent | fix parsing of [# with layout rule (diff) | |
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
Diffstat (limited to 'frontend/checksupport.icl')
| -rw-r--r-- | frontend/checksupport.icl | 14 |
1 files changed, 0 insertions, 14 deletions
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 |