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/StoneageResFre.gf | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'examples/stoneage/StoneageResFre.gf')

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