From 9594ee9cf2df84324b75b2dabd44f57cb124198c Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 26 Nov 2020 19:45:00 +0100
Subject: [PATCH] (Eng) Fix verbalN so that it includes particle (switching
 *on*)

---
 src/english/ParadigmsEng.gf | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/english/ParadigmsEng.gf b/src/english/ParadigmsEng.gf
index 57d623b6..1ba055c2 100644
--- a/src/english/ParadigmsEng.gf
+++ b/src/english/ParadigmsEng.gf
@@ -412,7 +412,15 @@ mkInterj : Str -> Interj
 
   compoundN s n = lin N {s = \\x,y => s ++ n.s ! x ! y ; g=n.g} ;
 
-  verbalN v = regN (v.s ! VPresPart) ;
+  -- NB. this only works when constructing lexicon, not applied to runtime arguments
+  verbalN v =
+    let switching : Str = v.s ! VPresPart ;
+        on : Str = v.p ;
+     in particleN (regN switching) on ;
+
+  particleN : N -> Str -> N = \n,str -> n ** {
+    s = \\num,cas => n.s ! num ! cas ++ str
+    } ;
 
   mkPN = overload {
     mkPN : Str -> PN = regPN ;