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

bug fixes: too much reading of files ; lin of variant records

Browse Source
This commit is contained in:
aarne
2006-06-01 07:51:53 +00:00
parent 0e484f094f
commit 5e665fa2ac
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -75,7 +75,8 @@ linearizeToRecord gr mk m = lin [] where
look = lookupLin gr . redirectIdent m . rtQIdent
comp = ccompute gr
mkBinds bs bdy = case bdy of
R fs -> R $ [Ass (LV i) (tK (prt t)) | (i,(t,_)) <- zip [0..] bs] ++ fs
R fs -> R $ [Ass (LV i) (tK (prt t)) | (i,(t,_)) <- zip [0..] bs] ++ fs
FV rs -> FV $ map (mkBinds bs) rs
recS t = R [Ass (L (identC "s")) t] ----