use consistent lin X everywhere

This commit is contained in:
Krasimir Angelov
2025-11-14 14:12:57 +01:00
parent 48658e3689
commit c7fe453c12
58 changed files with 330 additions and 334 deletions
+3 -3
View File
@@ -169,16 +169,16 @@ oper
= \x1,x2,x3,x4 -> lin V (mkVerbReg x1 x2 x3 x4) ;
} ;
copula = ResKor.copula ;
copula = lin V ResKor.copula ;
-- regV : Str -> Verb = \s -> case s of {
-- } ;
mkV2 = overload {
mkV2 : (plain : Str) -> V2 = \v2 -> lin V2 (mkVerb2 v2) ;
mkV2 : V -> V2 = vtov2 ;
mkV2 : V -> V2 = \v -> lin V2 (vtov2 v) ;
mkV2 : V -> (subj,obj : CaseParticle) -> V2 = \v,sc,c2 ->
vtov2 v ** {sc = sc ; c2 = c2} ;
lin V2 (vtov2 v ** {sc = sc ; c2 = c2}) ;
} ;
mkV3 = overload {