NumeralsEng.n9, SymbolFin.CNIntNP

This commit is contained in:
aarne
2006-08-07 14:39:35 +00:00
parent 538ea8889e
commit 1df7df99cf
2 changed files with 2 additions and 2 deletions

View File

@@ -21,7 +21,7 @@ lin n5 = mkNum "five" "fifteen" "fifty" "fifth" ;
lin n6 = regNum "six" ;
lin n7 = regNum "seven" ;
lin n8 = mkNum "eight" "eighteen" "eighty" "eighth" ;
lin n9 = regNum "nine" ;
lin n9 = mkNum "nine" "nineteen" "ninety" "ninth" ;
lin pot01 = mkNum "one" "eleven" "ten" "first" ** {n = Sg} ;
lin pot0 d = d ** {n = Pl} ;

View File

@@ -6,7 +6,7 @@ lin
FloatPN i = {s = \\c => i.s} ; --- c
CNIntNP cn i = {
s = \\c => cn.s ! NCase Sg (npform2case c) ++ i.s ;
s = \\c => cn.s ! NCase Sg (npform2case Sg c) ++ i.s ;
a = agrP3 Sg ;
isPron = False
} ;