unlexer concat

2005-02-08 15:35:58 +00:00
parent fcd02b27a7
commit 2ee3d891bc
13 changed files with 145 additions and 12 deletions
--- a/resource/danish/MorphoDan.gf
+++ b/resource/danish/MorphoDan.gf
@@ -83,7 +83,10 @@ oper

  mkVoice : Voice -> Str -> Str = \v,s -> case v of {
    Act => s ;
-    Pass => s + "s"
+    Pass => s + case last s of {
+      "s" => "es" ;
+      _   => "s"
+      }
    } ;
  
  vHusk : Str -> Verbum = \husk ->