From eefced4abe9b45dbd284c639d8b8943977ba2107 Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Tue, 8 Mar 2005 16:38:12 +0000
Subject: Use Phr for S linearization.

---
 examples/stoneage/StoneageResSwe.gf | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

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

diff --git a/examples/stoneage/StoneageResSwe.gf b/examples/stoneage/StoneageResSwe.gf
index 8d303d875..75952c438 100644
--- a/examples/stoneage/StoneageResSwe.gf
+++ b/examples/stoneage/StoneageResSwe.gf
@@ -1,11 +1,12 @@
-resource StoneageResSwe = open ResourceSwe, ParadigmsSwe in {
+resource StoneageResSwe = open ResourceSwe, SyntaxSwe, ParadigmsSwe in {
 
 oper
-  PresV : V -> NP -> S = \v,s -> PresCl (SPredV s v) ;
-  PresV2 : V2 -> NP -> NP -> S = \v,s,o -> PresCl (SPredV2 s v o) ;
-  PresVasV2 : V -> NP -> NP -> S = \ v -> PresV2 (dirV2 v) ;
+  PresV : V -> NP -> Phr = \v,s -> PresCl (SPredV s v) ;
+  PresV2 : V2 -> NP -> NP -> Phr = \v,s,o -> PresCl (SPredV2 s v o) ;
+  PresVasV2 : V -> NP -> NP -> Phr = \ v -> PresV2 (dirV2 v) ;
 
-  PresCl : Cl -> S = UseCl (PosTP TPresent ASimul) ;
+  PresCl : Cl -> Phr = 
+    \c -> defaultSentence (UseCl (PosTP TPresent ASimul) c) ** {lock_Phr = <>} ;
  
   ModPosA : ADeg -> CN -> CN = \a -> ModAP (PositADeg a) ;
   ModA : A -> CN -> CN = \a -> ModAP (UseA a) ;
-- 
cgit v1.2.3