resource for OCL

resource-0.6/english/AtomEng.gf

@@ -0,0 +1,3 @@
+instance AtomEng of Atom = ResourceExtEng ** open ResourceEng in {
+  oper SBranch = Str ;
+}

resource-0.6/english/LogicEng.gf

@@ -0,0 +1,6 @@
+--# -path=.:../abstract:../../prelude
+
+resource LogicEng = Logic with 
+  (Atom = AtomEng), (Resource = ResourceEng) ;
+
+-- this is the standard form of a derived resource. AR 12/1/2004

resource-0.6/english/ParadigmsEng.gf

@@ -261,7 +261,7 @@ oper
   vPart = \go, goes, went, gone, up -> 
     verbPart (mkVerbP3 go goes went gone) up ** {lock_V = <>} ;
   vPartReg = \get, up -> 
-    verbPart (regVerbP3 get) up  ** {lock_V = <>} ;
+    verbPart (vGen get) up  ** {lock_V = <>} ;
 
   mkTV = \v,p -> v ** {lock_TV = <> ; s3 = p} ;
   tvPartReg = \get, along, to -> mkTV (vPartReg get along) to ;