mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-26 17:53:17 -06:00
added a type annotation to make ExtendGer compile with v. 3.12 type checker
This commit is contained in:
1 parent
231e689426
commit
f6576c4b36
1 file changed
+1
-1
@@ -389,7 +389,7 @@ concrete ExtendGer of Extend =
|
||||
in ap ** { s = \\af => ap.s ! af ++ adv } ; -- e.g. unknown in one's youth
|
||||
|
||||
AdvRVP vp prep rnp =
|
||||
insertAdv (appPrep prep (\\c => rnp.s ! agrP3 Sg ! Obj c) ++ rnp.ext ++ rnp.rc) vp ;
|
||||
insertAdv (appPrep prep (table ObjCase {c => rnp.s ! agrP3 Sg ! Obj c}) ++ rnp.ext ++ rnp.rc) vp ;
|
||||
|
||||
ReflA2RNP adj rnp = -- would need AP.c : Agr => Str*Str, not AP.c : Str*Str
|
||||
let -- as we have no reflexive AP,
|
||||
|
||||
Reference in new issue
Block a user