1
0
forked from GitHub/gf-core

dealing with Ints n in GrammarToGFCC

This commit is contained in:
aarne
2007-11-15 16:49:20 +00:00
parent 504bdedcc3
commit 43eb40a688

View File

@@ -164,6 +164,7 @@ mkCType t = case t of
EInt i -> C.R $ replicate (1 + fromInteger i) $ mkCType vt
RecType rs -> mkCType $ foldr Table vt (map snd rs)
Sort "Str" -> C.S [] --- Str only
App (Q (IC "Predef") (IC "Ints")) (EInt i) -> C.C $ fromInteger i
_ -> error $ "mkCType " ++ show t
-- encoding showable lincats (as in source gf) as terms