added a type annotation to make ExtendGer compile with v. 3.12 type checker

This commit is contained in:
aarneranta
2026-09-08 14:29:12 +02:00
parent 231e689426
commit f6576c4b36
+1 -1
View File
@@ -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,