(Ara) Prepositions + improve Paradigms API functions

This commit is contained in:
Inari Listenmaa
2018-11-07 14:30:38 +01:00
parent 5c5cd125c9
commit bf28bf1e56
11 changed files with 185 additions and 89 deletions

View File

@@ -48,7 +48,7 @@ concrete QuestionAra of Question = CatAra ** open ResAra, ParamX, Prelude, VerbA
QuestSlash ip cl = { ----IL just guessing
s = \\t,p,qf =>
let o = case qf of { QDir => Nominal ; _ => Verbal } ; -- purely guessing
in cl.c2 ++ ip.s ! False ! Def ! Nom ++ cl.s ! t ! p ! o
in cl.c2.s ++ ip.s ! False ! Def ! Nom ++ cl.s ! t ! p ! o
} ;
--IL guessed