mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-29 20:58:55 -06:00
resource for OCL
This commit is contained in:
@@ -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 ;
|
||||
|
||||
Reference in New Issue
Block a user