This commit is contained in:
aarne
2005-11-16 10:28:47 +00:00
parent 16f1631906
commit a62523e09f
14 changed files with 255 additions and 113 deletions

View File

@@ -10,7 +10,8 @@ concrete StructuralEng of Structural =
flags optimize=all ;
lin
UseNumeral i = {s = table {Nom => i.s ; Gen => i.s ++ "'s"} ; n = i.n} ; ---
UseNumeral i = {
s = table {Nom => i.s ! NCard ; Gen => i.s ! NCard ++ "'s"} ; n = i.n} ; ---
above_Prep = ss "above" ;