mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
fix compilation with the old type checker
This commit is contained in:
@@ -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
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
@@ -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) ;
|
||||||
|
|||||||
Reference in New Issue
Block a user