Fun CN added.

1 files changed, 8 insertions, 1 deletions

diff --git a/grammars/resource/english/Paradigms.gf b/grammars/resource/english/Paradigms.gf
index ed54b4100..d2eeca49d 100644
--- a/grammars/resource/english/Paradigms.gf
+++ b/grammars/resource/english/Paradigms.gf
@@ -74,6 +74,10 @@ oper
   cnHuman    : Str -> CN ;
   npReg      : Str -> NP ;
 
+-- In some cases, you may want to make a complex $CN$ into a function.
+
+  mkFunCN  : CN -> Preposition -> Fun ;
+  funOfCN : CN -> Fun ;
 
 --2 Adjectives
 
@@ -184,6 +188,9 @@ oper
   cnHuman = \s -> UseN (nGen s human) ;
   npReg = \s -> UsePN (pnReg s) ;  
 
+  mkFunCN = \n,p -> n ** {s2 = p} ;
+  funOfCN = \n -> mkFunCN n "of" ;
+
   addGenN : (Str -> CommonNoun) -> Str -> Gender -> N = \f -> 
     \s,g -> f s ** {g = g} ;
 
@@ -218,7 +225,7 @@ oper
   vPartReg = \get, up -> verbPart (regVerbP3 get) up ;
 
   mkTV = \v,p -> v ** {s3 = p} ;
-  tvPartReg = \get, along, with -> mkTV (vPartReg get along) with ;
+  tvPartReg = \get, along, to -> mkTV (vPartReg get along) to ;
 
   vBe = verbBe ;
   vHave = verbP3Have ;