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
|
||||
PastPartAP vp = {
|
||||
s = \\_,_ => vp2adv (lin VP vp) <True : Bool> <PastPart Pass : VForm> ;
|
||||
s = \\_,_ => vp2adv <lin VP vp : VP> True (PastPart Pass) ;
|
||||
infl = Invariable
|
||||
} ;
|
||||
|
||||
@@ -366,7 +366,7 @@ concrete ExtendEst of Extend =
|
||||
-- : VPSlash -> NP -> AP -- hobisukeldujate poolt leitud (süvaveepomm)
|
||||
PastPartAgentAP vp 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
|
||||
} ;
|
||||
|
||||
|
||||
@@ -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 : Str -> V = \v ->lin V(regV v) ;
|
||||
|
||||
Reference in New Issue
Block a user