mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 11:42:49 -06:00
reorder code lines
This commit is contained in:
@@ -33,7 +33,7 @@ oper
|
|||||||
|
|
||||||
ClSlash : Type = {
|
ClSlash : Type = {
|
||||||
s : TenseHeb => Polarity => Str ;
|
s : TenseHeb => Polarity => Str ;
|
||||||
c2 : Prep
|
c2 : Case
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
VP : Type = {
|
VP : Type = {
|
||||||
@@ -129,7 +129,7 @@ oper
|
|||||||
-- defH : Str -> Str = \cn ->
|
-- defH : Str -> Str = \cn ->
|
||||||
-- case cn of {_ => "h" + cn} ;
|
-- case cn of {_ => "h" + cn} ;
|
||||||
|
|
||||||
insertObj : NP -> VP -> VP = \np,vp ->
|
insertObj : NP -> VP -> VP = \np,vp ->
|
||||||
let
|
let
|
||||||
nps = np.s ! Acc
|
nps = np.s ! Acc
|
||||||
in
|
in
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ concrete VerbHeb of Verb = CatHeb ** open Prelude, ResHeb in {
|
|||||||
|
|
||||||
UseV = predV ;
|
UseV = predV ;
|
||||||
|
|
||||||
ComplSlash vp np = insertObj vp np;
|
ComplSlash vp np = insertObj np vp;
|
||||||
|
|
||||||
SlashV2a v = predVc v ; --predV v ** {c2 = v.c2} ;
|
SlashV2a v = predVc v ; --predV v ** {c2 = v.c2} ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user