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

Don't build FV terms if there is exactly one variant.

Browse Source
This commit is contained in:
bjorn
2008-10-03 08:18:24 +00:00
parent feecb1c368
commit 3e3ba03724
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/PGF/Linearize.hs
View File

@@ -60,7 +60,9 @@ linTree pgf lang = lin
R ts -> R $ ts ++ (Data.List.map (kks . prCId) xs) R ts -> R $ ts ++ (Data.List.map (kks . prCId) xs)
TM s -> R $ (TM s) : (Data.List.map (kks . prCId) xs) TM s -> R $ (TM s) : (Data.List.map (kks . prCId) xs)
lin (Fun fun es) = let argVariants = mapM (liftVariants . lin) es lin (Fun fun es) = let argVariants = mapM (liftVariants . lin) es
in FV [comp args $ look fun | args <- argVariants] mkVariants [t] = t
mkVariants ts = FV ts
in mkVariants [comp args $ look fun | args <- argVariants]
lin (Lit (LStr s)) = R [kks (show s)] -- quoted lin (Lit (LStr s)) = R [kks (show s)] -- quoted
lin (Lit (LInt i)) = R [kks (show i)] lin (Lit (LInt i)) = R [kks (show i)]
lin (Lit (LFlt d)) = R [kks (show d)] lin (Lit (LFlt d)) = R [kks (show d)]