fixed some spurious errors in romance

This commit is contained in:
aarne
2008-10-31 14:39:47 +00:00
parent 88fa05749b
commit 0c1f5cf9f2
9 changed files with 20 additions and 21 deletions

View File

@@ -28,8 +28,6 @@ resource ParadigmsCat =
open
(Predef=Predef),
Prelude,
CommonRomance,
ResCat,
MorphoCat,
BeschCat,
CatCat in {

View File

@@ -92,7 +92,7 @@ lin
something_NP = pn2np (mkPN ["quelcom"] Masc) ;
somewhere_Adv = ss ["a algun lloc"] ;
that_Quant =
let aquell : Number => Gender => Case => Str = table {
let aquell : ParadigmsCat.Number => ParadigmsCat.Gender => Case => Str = table {
Sg => \\g,c => prepCase c ++ genForms "aquell" "aquella" ! g ;
Pl => \\g,c => prepCase c ++ genForms "aquells" "aquelles" ! g
}
@@ -111,7 +111,7 @@ lin
Fem Pl P3 ;
this_Quant =
let aquest : Number => Gender => Case => Str = table {
let aquest : ParadigmsCat.Number => ParadigmsCat.Gender => Case => Str = table {
Sg => \\g,c => prepCase c ++ genForms "aquest" "aquesta" ! g ;
Pl => \\g,c => prepCase c ++ genForms "aquests" "aquestes" ! g
}