more work on Finnish ClausePlus

2026-07-01 03:28:34 -06:00 · 2011-02-08 19:27:35 +00:00
parent 11332d735e
commit 1f5fd10640
10 changed files with 37 additions and 27 deletions
@@ -53,7 +53,7 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
    ComplSlash vp np = insertObjPre (\\fin,b,_ => appCompl fin b vp.c2 np) vp ;

    UseComp comp = 
-      insertObj (\\_,_ => comp.s) (predV (verbOlla ** {sc = NPCase Nom ; qp = "ko"})) ;
+      insertObj (\\_,_ => comp.s) (predV (verbOlla ** {sc = NPCase Nom ; qp = True})) ;

    SlashVV v vp = 
      insertObj