empty variants in mkVV eliminated

2009-01-15 09:53:19 +00:00
parent 5afac01585
commit 47b60d0b88
1 changed files with 2 additions and 1 deletions
--- a/next-lib/src/english/ParadigmsEng.gf
+++ b/next-lib/src/english/ParadigmsEng.gf
@@ -528,7 +528,8 @@ mkSubj : Str -> Subj = \s -> {s = s ; lock_Subj = <>} ;

  mkVS  v = v ** {lock_VS = <>} ;
  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 = <>
    } ;
  mkVQ  v = v ** {lock_VQ = <>} ;