From 2a0c611486ec46d63a7109e51a5ad0a1b5dd2184 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sun, 4 Dec 2011 18:09:02 +0000
Subject: Male/Female greetings distinguished in Phrasebook

---
 examples/phrasebook/SentencesI.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'examples/phrasebook/SentencesI.gf')

diff --git a/examples/phrasebook/SentencesI.gf b/examples/phrasebook/SentencesI.gf
index b292657ea..91367cdc0 100644
--- a/examples/phrasebook/SentencesI.gf
+++ b/examples/phrasebook/SentencesI.gf
@@ -51,7 +51,7 @@ incomplete concrete SentencesI of Sentences = Numeral **
     PSentence s = mkText s | lin Text (mkUtt s) ;  -- optional '.'
     PQuestion s = mkText s | lin Text (mkUtt s) ;  -- optional '?'
 
-    PGreeting g = mkText (lin Phr g) exclMarkPunct | g ;
+    PGreetingMale, PGreetingFemale = \g -> mkText (lin Phr g) exclMarkPunct | g ;
 
     -- PWord w = w ;
 
-- 
cgit v1.2.3