peace grammars patched to work with the new API

1 files changed, 30 insertions, 30 deletions

diff --git a/examples/peacekeeping/finnish/PeaceLexExt_Fin.gf b/examples/peacekeeping/finnish/PeaceLexExt_Fin.gf
index eade50a49..637b52d65 100644
--- a/examples/peacekeeping/finnish/PeaceLexExt_Fin.gf
+++ b/examples/peacekeeping/finnish/PeaceLexExt_Fin.gf
@@ -6,39 +6,39 @@ concrete PeaceLexExt_Fin of PeaceLexExt =
   lin
 
     -- Adjectives
-    dangerous_A = regA "vaarallinen" ;
-    dead_A = mkA (nRae "kuollut" "kuolleena") ;
-    hungry_A = regA "nälkäinen" ;
-    large_A = regA "iso" ;
-    sick_A = regA "sairas" ;
+    dangerous_A = mkA "vaarallinen" ;
+    dead_A = mkA (mkN "kuollut" "kuolleita") ;
+    hungry_A = mkA "nälkäinen" ;
+    large_A = mkA "iso" ;
+    sick_A = mkA "sairas" ;
 
     -- Nouns
-    air_N = regN "ilma" ;
-    arm_N = reg3N "käsi" "käden" "käsiä" ;
-    building_N = regN "rakennus" ;
-    car_N = regN "auto" ;
-    corpse_N = regN "ruumis" ;
-    doctor_N = regN "lääkäri";
-    enemy_N = regN "vihollinen";
-    face_N = regN "naama" ; ---- kasvot
-    food_N = regN "ruoka";
-    friend_N = regN "ystävä";
-    ground_N = regN "maa" ;
-    knife_N = reg2N "veitsi" "veitsiä" ; ---- veistä
-    landmine_N = regN "maamiina" ;
-    map_N = regN "kartta" ;
-    medicine_N = regN "lääke" ;
-    police8officer_N = regN "poliisi" ;
-    skin_N = regN "iho" ;
-    soldier_N = regN "sotilas" ;
-    weapon_N = regN "ase";
+    air_N = mkN "ilma" ;
+    arm_N = mk3N "käsi" "käden" "käsiä" ;
+    building_N = mkN "rakennus" ;
+    car_N = mkN "auto" ;
+    corpse_N = mkN "ruumis" ;
+    doctor_N = mkN "lääkäri";
+    enemy_N = mkN "vihollinen";
+    face_N = mkN "naama" ; ---- kasvot
+    food_N = mkN "ruoka";
+    friend_N = mkN "ystävä";
+    ground_N = mkN "maa" ;
+    knife_N = mk2N "veitsi" "veitsiä" ; ---- veistä
+    landmine_N = mkN "maamiina" ;
+    map_N = mkN "kartta" ;
+    medicine_N = mkN "lääke" ;
+    police8officer_N = mkN "poliisi" ;
+    skin_N = mkN "iho" ;
+    soldier_N = mkN "sotilas" ;
+    weapon_N = mkN "ase";
 
     -- Verbs
-    cough_V = regV "yskiä" ;
-    drop_V2 = dirV2 (regV "pudottaa") ;
-    hurt_V = regV "sattua" ;
-    need_V2 = dirV2 (regV "tarvita");
-    own_V2 = dirV2 (regV "omistaa") ;
-    show_V3 = dirdirV3 (regV "näyttää") ;
+    cough_V = mkV "yskiä" ;
+    drop_V2 = dirV2 (mkV "pudottaa") ;
+    hurt_V = mkV "sattua" ;
+    need_V2 = dirV2 (mkV "tarvita");
+    own_V2 = dirV2 (mkV "omistaa") ;
+    show_V3 = dirdirV3 (mkV "näyttää") ;
 
 }