mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-06 09:42:50 -06:00
treating Int as PredefAbs.Int in lookup
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user