1 files changed, 1 insertions, 13 deletions
diff --git a/examples/phrasebook/PhrasebookFre.gf b/examples/phrasebook/PhrasebookFre.gf
index a7de6f597..b14d35eec 100644
--- a/examples/phrasebook/PhrasebookFre.gf
+++ b/examples/phrasebook/PhrasebookFre.gf
@@ -6,22 +6,10 @@ concrete PhrasebookFre of Phrasebook =
   ** open 
     (R = Roles),
     SyntaxFre,
-    ParadigmsFre,
     Prelude in {
 
-lincat 
-  Gender = {s : Str ; g : R.Gender} ;
-  Politeness = {s : Str ; p : R.Politeness} ;
-
 lin
-  PSentence s = mkText s | lin Text (mkUtt s) ;  -- optional .
-  PQuestion s = mkText s | lin Text (mkUtt s) ;  -- optional ?
-  PGreeting g = lin Text (ss (g.s ! R.Polite ! R.Male ! R.Male)) ;
+  PGreeting p g = mkText (lin Text (ss (g.s ! p.p ! R.Male ! R.Male))) (lin Text (ss p.s)) ;
 ----  PGreeting p s h g = mkPhrase (g.s ! p.p ! s.g ! h.g ++ p.s ++ s.s ++ h.s) ;
-
-  Male = {s = [] ; g = R.Male} ;
-  Female = {s = [] ; g = R.Female} ;
-  Polite = {s = [] ; p = R.Polite} ;
-  Familiar = {s = [] ; p = R.Familiar} ;
   
 }