(Dut) Fix ordinals and superlatives

2018-07-03 18:25:14 +02:00
parent 6eaee8e4c1
commit 730fd6501c
5 changed files with 32 additions and 23 deletions
@@ -211,7 +211,9 @@ oper

 --.

-  mkOrd : A -> Ord = \a -> lin Ord {s = a.s ! Posit} ;
+  mkOrd : A -> Ord = \a ->
+    lin Ord {s = table { APred => "de" ++ a.s ! Posit ! APred ;
+                         af    => a.s ! Posit ! af } } ;

  mkN = overload {
    mkN : (bank : Str) -> N