fix compilation with the old type checker

This commit is contained in:
Krasimir Angelov
2025-11-14 14:32:30 +01:00
parent c7fe453c12
commit 06f3602e00
2 changed files with 3 additions and 3 deletions

View File

@@ -353,7 +353,7 @@ concrete ExtendEst of Extend =
-- : VPSlash -> AP ; -- täna leitud -- : VPSlash -> AP ; -- täna leitud
PastPartAP vp = { PastPartAP vp = {
s = \\_,_ => vp2adv (lin VP vp) <True : Bool> <PastPart Pass : VForm> ; s = \\_,_ => vp2adv <lin VP vp : VP> True (PastPart Pass) ;
infl = Invariable infl = Invariable
} ; } ;
@@ -366,7 +366,7 @@ concrete ExtendEst of Extend =
-- : VPSlash -> NP -> AP -- hobisukeldujate poolt leitud (süvaveepomm) -- : VPSlash -> NP -> AP -- hobisukeldujate poolt leitud (süvaveepomm)
PastPartAgentAP vp np = { PastPartAgentAP vp np = {
s = \\_,_ => appCompl True Pos by8agent_Prep np s = \\_,_ => appCompl True Pos by8agent_Prep np
++ vp2adv (lin VP vp) <True : Bool> <PastPart Pass : VForm> ; ++ vp2adv <lin VP vp : VP> True (PastPart Pass) ;
infl = Invariable infl = Invariable
} ; } ;

View File

@@ -388,7 +388,7 @@ mkN2 = overload {
} ; } ;
regV=\v -> lin V (MorphoSwa.regV v) ; regV : Str -> V = \v -> lin V (MorphoSwa.regV v) ;
mkV = overload { mkV = overload {
mkV : Str -> V = \v ->lin V(regV v) ; mkV : Str -> V = \v ->lin V(regV v) ;