Use Phr for S linearization.

1 files changed, 6 insertions, 5 deletions

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) ;