comments in phrasebook abstract syntax

1 files changed, 6 insertions, 1 deletions

diff --git a/examples/phrasebook/SentencesI.gf b/examples/phrasebook/SentencesI.gf
index 31e3a6885..0b26cff41 100644
--- a/examples/phrasebook/SentencesI.gf
+++ b/examples/phrasebook/SentencesI.gf
@@ -52,7 +52,8 @@ incomplete concrete SentencesI of Sentences = Numeral **
     SPropNot = mkS negativePol ;
     QProp p = mkQS (mkQCl p) ;
 
-    WhereIs place = mkQS (mkQCl where_IAdv place.name) ;
+    WherePlace place = mkQS (mkQCl where_IAdv place.name) ;
+    WherePerson person = mkQS (mkQCl where_IAdv person.name) ;
 
     PropAction a = a ;
 
@@ -100,6 +101,10 @@ incomplete concrete SentencesI of Sentences = Numeral **
 ----    NameString s = symb s ;
     NameNN = symb "NN" ;
 
+    AHave p kind = mkCl p.name have_V2 (mkNP kind) ;
+    ACitizen p n = mkCl p.name n ;
+    ABePlace p place = mkCl p.name place.at ;
+
 oper 
   mkPhrase : Utt -> Text = \u -> lin Text u ; -- no punctuation