From eba86d2f2460f96f1b65d314d558eb95fa056143 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Tue, 18 Nov 2008 15:20:40 +0000
Subject: [PATCH] The stand-alone form of no_Quant should be "none", not "no".

---
 next-lib/src/english/MorphoEng.gf     | 8 +++++---
 next-lib/src/english/StructuralEng.gf | 2 +-
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/next-lib/src/english/MorphoEng.gf b/next-lib/src/english/MorphoEng.gf
index 15dca5d09..fac049210 100644
--- a/next-lib/src/english/MorphoEng.gf
+++ b/next-lib/src/english/MorphoEng.gf
@@ -21,9 +21,11 @@ resource MorphoEng = open Prelude, (Predef=Predef), ResEng in {
      sp = regGenitiveS s ;
      n = n} ;
 
-  mkQuant : Str -> Str -> {s : Bool => Number => Str; sp : Bool => Number => Case => Str } = \x,y -> {
-    s = \\_  => table { Sg => x ; Pl => y } ;
-    sp = \\_ => table { Sg => regGenitiveS x ; Pl => regGenitiveS y }
+  mkQuant : Str -> Str -> {s : Bool => Number => Str; sp : Bool => Number => Case => Str } = \sg,pl -> mkQuant4 sg pl sg pl ;
+
+  mkQuant4 : Str -> Str -> Str -> Str -> {s : Bool => Number => Str; sp : Bool => Number => Case => Str } = \sg,pl,sg',pl' -> {
+    s = \\_  => table { Sg => sg ; Pl => pl } ;
+    sp = \\_ => table { Sg => regGenitiveS sg' ; Pl => regGenitiveS pl' }
     } ;
 
   regGenitiveS : Str -> Case => Str = \s -> 
diff --git a/next-lib/src/english/StructuralEng.gf b/next-lib/src/english/StructuralEng.gf
index 893ca2e82..9c50066a4 100644
--- a/next-lib/src/english/StructuralEng.gf
+++ b/next-lib/src/english/StructuralEng.gf
@@ -123,7 +123,7 @@ concrete StructuralEng of Structural = CatEng **
   youPol_Pron = mkPron "you" "you" "your" "yours" singular P2 human ;
 
   not_Predet = {s = "not" ; lock_Predet = <>} ;
-  no_Quant = mkQuant "no" "no" ;
+  no_Quant = mkQuant4 "no" "no" "none" "none" ;
   if_then_Conj = {s1 = "if" ; s2 = "then" ; n = singular ; lock_Conj = <>} ;
   nobody_NP = regNP "nobody" singular ;
   nothing_NP = regNP "nothing" singular ;