some moving around of new phrasebook entries

1 files changed, 11 insertions, 0 deletions

diff --git a/examples/phrasebook/SentencesI.gf b/examples/phrasebook/SentencesI.gf
index 0d56bc3d5..6d689d099 100644
--- a/examples/phrasebook/SentencesI.gf
+++ b/examples/phrasebook/SentencesI.gf
@@ -34,6 +34,9 @@ incomplete concrete SentencesI of Sentences = Numeral **
     Date = Adv ;
     Name = NP ;
     Number = Card ;
+    ByTransport = Adv ;
+    Transport = {name : NP ; by : Adv} ;
+    Superlative = Det ;
   lin
     PSentence s = mkText s | lin Text (mkUtt s) ;  -- optional '.'
     PQuestion s = mkText s | lin Text (mkUtt s) ;  -- optional '?'
@@ -84,12 +87,19 @@ incomplete concrete SentencesI of Sentences = Numeral **
     Very property = mkAP very_AdA (mkAP property) ;
     Too property = mkAP too_AdA (mkAP property) ;
     PropQuality property = mkAP property ;
+
     ThePlace kind =
       let name : NP = mkNP the_Quant kind.name in {
         name = name ;
         at = mkAdv kind.at name ;
         to = mkAdv kind.to name
       } ;
+    APlace kind =
+      let name : NP = mkNP a_Quant kind.name in {
+        name = name ;
+        at = mkAdv kind.at name ;
+        to = mkAdv kind.to name
+      } ;
 
     IMale, IFemale = mkPerson i_Pron ;
     YouFamMale, YouFamFemale = mkPerson youSg_Pron ;
@@ -114,6 +124,7 @@ incomplete concrete SentencesI of Sentences = Numeral **
     ACitizen p n = mkCl p.name n ;
     ABePlace p place = mkCl p.name place.at ;
 
+
 oper 
 
 -- These operations are used internally in Sentences.