From de909a4e44419562ca4ba071e15cf9b8e00288be Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 30 Mar 2010 15:39:11 +0000
Subject: disambiguation in Phrasebook grammars, PGF server, and the GUI

---
 examples/phrasebook/SentencesFre.gf | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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

diff --git a/examples/phrasebook/SentencesFre.gf b/examples/phrasebook/SentencesFre.gf
index d4415e74a..3402c2db0 100644
--- a/examples/phrasebook/SentencesFre.gf
+++ b/examples/phrasebook/SentencesFre.gf
@@ -1,9 +1,12 @@
-concrete SentencesFre of Sentences = NumeralFre ** SentencesI - [WhetherIs] 
+concrete SentencesFre of Sentences = NumeralFre ** SentencesI - [WhetherIs, QAction] 
   with 
     (DiffPhrasebook = DiffPhrasebookFre), 
     (Syntax = SyntaxFre) ** open SyntaxFre, ExtraFre in {
 
-    lin WhetherIs item quality = 
-      lin QS {s = \\_ => (EstcequeS (mkS (mkCl item quality))).s} ;
+    lin 
+      WhetherIs item quality = 
+        {s = \\_ => lin QS {s = \\_ => (EstcequeS (mkS (mkCl item quality))).s}} ;
+      QAction a = 
+        {s = \\r => lin QS {s = \\_ => (EstcequeS (mkS (a.s ! r))).s}} ;
 
 }
-- 
cgit v1.2.3