From 97a5fbca7928af753e44a31d843097abde7d4e6d Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Wed, 26 Nov 2008 13:33:22 +0000
Subject: [PATCH] Added ParadigmsEng.mkV : Str -> V -> V, which adds a prefix
 to an existing verb.

---
 next-lib/src/english/ParadigmsEng.gf | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/next-lib/src/english/ParadigmsEng.gf b/next-lib/src/english/ParadigmsEng.gf
index 005eb5454..5d7dd2540 100644
--- a/next-lib/src/english/ParadigmsEng.gf
+++ b/next-lib/src/english/ParadigmsEng.gf
@@ -247,7 +247,12 @@ oper
 -- the third person singular present, the past indicative, and the
 -- past and present participles.
 
-    mkV : (go, goes, went, gone, going : Str) -> V
+    mkV : (go, goes, went, gone, going : Str) -> V ;
+
+-- Adds a prefix to an exisiting verb. This is most useful to create
+-- prefix-variants of irregular verbs from $IrregEng$, e.g. "undertake".
+
+    mkV : Str -> V -> V ;
   };
 
 -- Verbs with a particle.
@@ -612,11 +617,13 @@ mkSubj : Str -> Subj = \s -> {s = s ; lock_Subj = <>} ;
     mkV : (stop, stopped : Str) -> V = reg2V ;
     mkV : (drink, drank, drunk  : Str) -> V = irregV ;
     mkV : (run, ran, run, running  : Str) -> V = irreg4V ;
-    mkV : (go, goes, went, gone, going : Str) -> V = mk5V
+    mkV : (go, goes, went, gone, going : Str) -> V = mk5V ;
+    mkV : Str -> V -> V = prefixV
   };
 
   prepV2 : V -> Prep -> V2 ;
   dirV2 : V -> V2 ;
+  prefixV : Str -> V -> V = \p,v -> v ** { s = p + v.s } ;
 
   mkV2 = overload {
     mkV2  : V -> V2 = dirV2 ;