support for verbs with prepositions

This commit is contained in:
Krasimir Angelov
2026-09-26 14:38:24 +02:00
parent fd0e838fba
commit 4bbc7c7d59
9 changed files with 96 additions and 36 deletions
+1 -1
View File
@@ -16,7 +16,7 @@ concrete QuestionEus of Question = CatEus ** open ResEus, (VE=VerbEus), (NE=Noun
-- : IAdv -> Cl -> QCl ; -- why does John walk
-- nola (how), zerbait (how much), noiz (when), non (where), zergatik (why)
QuestIAdv iadv cl =
QuestIAdv iadv cl = cl **
{ s = \\t,a,p,c =>
let sent = cl.s ! t ! a ! p ! Indir ; -- no "al" with a wh-word!
in { beforeAux = iadv.s ++ sent.beforeAux ;