From 4ca5d0b507906e0f352217899776ca0f4f37cd29 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 14 Mar 2005 16:40:08 +0000
Subject: swadesh fixes; bug fix in i -old

---
 examples/stoneage/StoneageFre.gf    | 6 +++---
 examples/stoneage/StoneageResFre.gf | 4 ++++
 2 files changed, 7 insertions(+), 3 deletions(-)

(limited to 'examples')

diff --git a/examples/stoneage/StoneageFre.gf b/examples/stoneage/StoneageFre.gf
index 6696b2659..56f719d74 100644
--- a/examples/stoneage/StoneageFre.gf
+++ b/examples/stoneage/StoneageFre.gf
@@ -66,9 +66,9 @@ lin
   Fly = PresV fly_V ;
   Walk = PresV walk_V ;
   Come = PresV come_V ;
-  Lie = PresV lie_V ;
-  Sit = PresV sit_V ;
-  Stand = PresV stand_V ;
+  Lie = PresReflV lie_V ;
+  Sit = PresReflV sit_V ;
+  Stand = PresReflV stand_V ;
   Turn = PresV turn_V ;
   Fall = PresV fall_V ;
   Sing = PresV sing_V ;
diff --git a/examples/stoneage/StoneageResFre.gf b/examples/stoneage/StoneageResFre.gf
index c1aedf59a..cd5c90a5a 100644
--- a/examples/stoneage/StoneageResFre.gf
+++ b/examples/stoneage/StoneageResFre.gf
@@ -8,6 +8,10 @@ oper
     PresCl (insertObject (mkSatsObject s v o) v.c3 v.s3 r) ;
   PresVasV2 : V -> NP -> NP -> Phr = \ v -> PresV2 (dirV2 v) ;
 
+  PresReflV : V -> NP -> Phr = \v,s -> 
+    PresCl (insertObject (mkSats s v) accusative.p1 [] 
+      (reflPronNounPhrase (pgen2gen s.g) s.n s.p)) ;
+
   PresCl : Sats -> Phr = \c -> 
     {s = (UseCl (PosTP TPresent ASimul) 
             (sats2clause c ** {lock_Cl = <>})
-- 
cgit v1.2.3