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

empty variants in mkVV eliminated

Browse Source
This commit is contained in:
aarne
2009-01-15 09:53:19 +00:00
parent 5afac01585
commit 47b60d0b88
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
next-lib/src/english/ParadigmsEng.gf
View File

@@ -528,7 +528,8 @@ mkSubj : Str -> Subj = \s -> {s = s ; lock_Subj = <>} ;
mkVS v = v ** {lock_VS = <>} ; mkVS v = v ** {lock_VS = <>} ;
mkVV v = { mkVV v = {
s = table {VVF vf => v.s ! vf ; _ => variants {}} ; s = table {VVF vf => v.s ! vf ; _ => v.s ! VInf} ;
--- variants {}} ; not used
isAux = False ; lock_VV = <> isAux = False ; lock_VV = <>
} ; } ;
mkVQ v = v ** {lock_VQ = <>} ; mkVQ v = v ** {lock_VQ = <>} ;