some work on questions

2026-07-01 11:38:34 -06:00 · 2019-06-27 18:31:11 +02:00
parent d9cded4030
commit dfbe4b9d93
3 changed files with 35 additions and 22 deletions
@@ -20,7 +20,7 @@ concrete CatLat of Cat = CommonX-[Adv] ** open ResLat, ParamX, Prelude in {
 ---- Question
    --
    -- TO FIX
-    QCl = Clause ; -- {s : ResLat.Tense => Anteriority => Polarity => QForm => Str } ;
+    QCl = Clause ** { q : Str } ; 
    IP = {s : Case => Str ; n : Number} ;
    IComp = {s : Str} ;    
    IDet = Determiner ; --{s : Str ; n : Number} ;