GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-02 07:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/UseGrammar/Linear.hs
View File

@@ -81,9 +81,9 @@ linearizeToRecord gr mk m = lin [] where
recS t = R [Ass (L (identC "s")) t] ----
recInt i = R [
----Ass (L (identC "last")) (EInt (rem i 10)),
Ass (L (identC "s")) (tK $ show i) ----,
----Ass (L (identC "size")) (EInt (if i > 9 then 1 else 0))
Ass (L (identC "last")) (EInt (rem i 10)),
Ass (L (identC "s")) (tK $ show i),
Ass (L (identC "size")) (EInt (if i > 9 then 1 else 0))
]
lookCat = return . errVal defLindef . look