1
0
forked from GitHub/gf-rgl

started examples-3.0 with examples that are tested to work

This commit is contained in:
aarne
2008-06-17 13:16:15 +00:00
parent cf1210f824
commit 4fc362c06b
2 changed files with 6 additions and 6 deletions

View File

@@ -101,7 +101,7 @@ oper
--3 Other verbs --3 Other verbs
-- --
V2S, V2V, V2Q : Type = V2 ; -- V2S, V2V, V2Q : Type = V2 ;
mkV2S : V -> Prep -> V2S ; mkV2S : V -> Prep -> V2S ;
mkV2S v p = prepV2 v p ** {lock_V2 = <>} ; mkV2S v p = prepV2 v p ** {lock_V2 = <>} ;

View File

@@ -225,10 +225,10 @@ resource ResIna = ParamX ** open Prelude in {
}; };
tenseToVFrom = table { tenseToVFrom = table {
Pres => VPres; Pres => VPres
Past => VPast; ;Past => VPast; --# notpresent
Fut => VFut; Fut => VFut; --# notpresent
Cond => VCond Cond => VCond --# notpresent
}; };
insertInvarObj : Str -> VP -> VP = \obj -> insertObj "" Acc (mkInvarNP obj); insertInvarObj : Str -> VP -> VP = \obj -> insertObj "" Acc (mkInvarNP obj);