printnames are now kept as String instead of Term in PGF

This commit is contained in:
krasimir
2010-01-05 07:05:41 +00:00
parent 354269e17c
commit 3ed19a482e
7 changed files with 13 additions and 20 deletions

View File

@@ -29,10 +29,6 @@ lookParamLincat :: PGF -> CId -> CId -> Term
lookParamLincat pgf lang fun =
lookMap tm0 fun $ paramlincats $ lookMap (error "no lang") lang $ concretes pgf
lookPrintName :: PGF -> CId -> CId -> Term
lookPrintName pgf lang fun =
lookMap tm0 fun $ printnames $ lookMap (error "no lang") lang $ concretes pgf
lookType :: PGF -> CId -> Type
lookType pgf f =
case lookMap (error $ "lookType " ++ show f) f (funs (abstract pgf)) of