mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-09-07 19:54:16 -06:00
added type signature for GF3
This commit is contained in:
@@ -224,7 +224,7 @@ oper
|
||||
num.s ! NumAdj ++ cn.s ! numform2nounnum num.n ++ prep_ta.enclitic ! agr ;
|
||||
|
||||
pastPartStr : VPSlash -> GenNum -> Str = \vp,gn ->
|
||||
let agr = toAgr gn in
|
||||
let agr : Agr = toAgr gn in
|
||||
case exists Participle vp.v.pastPart of {
|
||||
True => fromJust Participle vp.v.pastPart ! gn ++ vp.s2 ! agr ++ vp.c2.s ! Definite ;
|
||||
False => (vp.v.s ! VPerf (toVAgr agr)).s1 ++ vp.s2 ! agr ++ vp.c2.s ! Definite
|
||||
|
||||
Reference in New Issue
Block a user