1
0
forked from GitHub/gf-core

restored Int size and last ; added lib/prelude to be the last in any grammar path

This commit is contained in:
aarne
2007-12-16 22:24:36 +00:00
parent 49b3ffb7a0
commit 7551c70db6
8 changed files with 28 additions and 28 deletions

View File

@@ -31,7 +31,8 @@ linExp mcfg lang tree@(DTr _ at trees) = ---- bindings TODO
case at of
AC fun -> comp (lmap lin trees) $ look fun
AS s -> R [kks (show s)] -- quoted
AI i -> R [kks (show i)]
AI i -> R [C lst, kks (show i), C size] where
lst = mod (fromInteger i) 10 ; size = if i < 10 then 0 else 1
AF d -> R [kks (show d)]
AM _ -> TM
where