(Ara) Fixes in prepositions binding to words

2026-06-26 19:46:26 -06:00 · 2018-11-29 15:51:57 +01:00
parent a7c471214b
commit f71e504f9c
6 changed files with 31 additions and 21 deletions
@@ -47,7 +47,9 @@ concrete QuestionAra of Question = CatAra ** open ResAra, ParamX, Prelude, VerbA
      s = \\t,p,qf => 
        let cl : ResAra.Cl = complClSlash cls ; -- dummy conversion to Cl
            o = toOrder qf
-          in cls.c2.s ++ ip.s ! False ! Masc ! Def ! Nom ++ cl.s ! t ! p ! o
+          in cls.c2.s ++ bindIf cls.c2.binds 
+          ++ ip.s ! False ! Masc ! Def ! Nom 
+          ++ cl.s ! t ! p ! o
      } ;

  --IL guessed