treating Int as PredefAbs.Int in lookup

This commit is contained in:
aarne
2008-06-12 13:11:18 +00:00
parent f28e32e688
commit 0a6085a7e2
3 changed files with 9 additions and 4 deletions

View File

@@ -30,7 +30,7 @@ module GF.Grammar.PrGrammar (Print(..),
prConstrs, prConstraints,
prMetaSubst, prEnv, prMSubst,
prExp, prOperSignature,
lookupIdent, lookupIdentInfo,
lookupIdent, lookupIdentInfo, lookupIdentInfoIn,
prTermTabular
) where
@@ -255,6 +255,10 @@ lookupIdent c t = case lookupTree prt c t of
lookupIdentInfo :: Module Ident a -> Ident -> Err a
lookupIdentInfo mo i = lookupIdent i (jments mo)
lookupIdentInfoIn :: Module Ident a -> Ident -> Ident -> Err a
lookupIdentInfoIn mo m i =
err (\s -> Bad (s +++ "in module" +++ prt m)) return $ lookupIdentInfo mo i
--- printing cc command output AR 26/5/2008