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 3f4bb6c40c
commit eb10ccbe7c
9 changed files with 30 additions and 29 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