make it possible to add more cardinals

2018-07-06 19:03:31 +02:00
parent 41c9cc80a6
commit 326d9edb22
9 changed files with 40 additions and 33 deletions
@@ -15,7 +15,7 @@ concrete PhraseEng of Phrase = CatEng ** open Prelude, ResEng in {
    UttVP vp = {s = infVP VVInf vp False Simul CPos (agrP3 Sg)} ;
    UttAdv adv = adv ;
    UttCN n = {s = n.s ! Sg ! Nom} ;
-    UttCard n = {s = n.s ! Nom} ;
+    UttCard n = {s = n.s ! False ! Nom} ;
    UttAP ap = {s = ap.s ! agrP3 Sg} ;
    UttInterj i = i ;