ordinals

2005-11-16 10:28:47 +00:00
parent 16f1631906
commit a62523e09f
14 changed files with 255 additions and 113 deletions
--- a/lib/resource/english/StructuralEng.gf
+++ b/lib/resource/english/StructuralEng.gf
@@ -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" ;