From d716e0a5bb8d141824db67f30657bd9b5082fc16 Mon Sep 17 00:00:00 2001
From: Eugene Koontz <ekoontz@hiro-tan.org>
Date: Fri, 2 Aug 2024 22:01:16 +0200
Subject: [PATCH] add nominal-argument-number

---
 resources/english/lexicon/rules.edn | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/resources/english/lexicon/rules.edn b/resources/english/lexicon/rules.edn
index ce51c3c97..1570ae536 100644
--- a/resources/english/lexicon/rules.edn
+++ b/resources/english/lexicon/rules.edn
@@ -506,12 +506,19 @@
                          :canonical with-adjective}
                      :3 []}}])}
 
+ {:rule :nominal-arg-verbs-number ;; "have lunch", not "have lunches"
+  :if {:cat :verb
+       :nominal-verb? true}
+  :then [{:nominal-argument-number :sing}]}
+
  {:rule :nominal-arg-verbs ;; "have lunch"
   :if {:cat :verb
        :nominal-verb? true}
   :then (let [subj (atom :top)
-              with-noun (atom :top)]
+              with-noun (atom :top)
+              nominal-argument-number (atom :top)]
           [{:nominal-verb-with with-noun
+            :nominal-argument-number nominal-argument-number
             :reflexive? false
             :sem {:obj :none
                   :iobj :none
@@ -519,7 +526,7 @@
             :subcat {:1 {:sem subj}
                      :2 {:cat :noun
                          :reflexive? false
-                         :agr {:number :sing}
+                         :agr {:number nominal-argument-number}
                          :phrasal? false
                          :canonical with-noun
                          :subcat []}