return ? for nonexistent fun in gfcc

This commit is contained in:
aarne
2006-11-03 21:57:37 +00:00
parent 048ef7d1d1
commit 790ad6d4a5

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