unlexer concat

2005-02-08 15:35:58 +00:00
parent b9a2d6c5c3
commit 56c80bf8d9
22 changed files with 251 additions and 62 deletions
--- a/lib/resource/danish/MorphoDan.gf
+++ b/lib/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 ->