msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

return ? for nonexistent fun in gfcc

Browse Source
This commit is contained in:
aarne
2006-11-03 21:57:37 +00:00
parent a59a89d366
commit dc9bf3b9c0
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Canon/GFCC/DataGFCC.hs
View File

@@ -33,7 +33,7 @@ lookMap d c m = maybe d id $ Data.Map.lookup c m
lookLin :: GFCC -> CId -> CId -> Term
lookLin mcfg lang fun =
lookMap (term0 fun) fun $ lookMap undefined lang $ concretes mcfg
lookMap TM fun $ lookMap undefined lang $ concretes mcfg
linearize :: GFCC -> CId -> Exp -> String
linearize mcfg lang = realize . linExp mcfg lang