From ff4929e25e49e771dd0355dd7f8809161f69e008 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 26 Sep 2011 06:56:36 +0000
Subject: Query/small packaged

---
 examples/query/small/QueryEng.gf | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'examples/query/small/QueryEng.gf')

diff --git a/examples/query/small/QueryEng.gf b/examples/query/small/QueryEng.gf
index c2db9880a..207e56483 100644
--- a/examples/query/small/QueryEng.gf
+++ b/examples/query/small/QueryEng.gf
@@ -5,7 +5,7 @@ concrete QueryEng of Query = open
   IrregEng,
   SyntaxEng,
   ExtraEng,
-  (L = LangEng),
+  (L = GrammarEng),
   Prelude
 in {
 
@@ -32,7 +32,7 @@ lin
   QSet s =
     let
      ss : NP = s
-        | mkNP (mkNP thePl_Det L.name_N) (mkAdv possess_Prep s)
+        | mkNP (mkNP thePl_Det name_N) (mkAdv possess_Prep s)
         ---- s's names
     in
       mkUtt (mkImp (mkVP give_V3 (mkNP i_Pron) ss))
@@ -101,6 +101,7 @@ oper
   give_V3 = mkV3 give_V ;
   information_N = mkN "information" ;
   other_A = mkA "other" ;
+  name_N = mkN "name" ;
 
 -- lexical constructors
   mkName : Str -> NP =
-- 
cgit v1.2.3