(Ara) add a string (e.g. "that") in VS

2026-07-02 03:58:34 -06:00 · 2018-12-29 18:44:16 +02:00
parent b73d5010df
commit 02700acc8d
3 changed files with 10 additions and 4 deletions
@@ -51,7 +51,7 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra, ParamX in {

    -- : VS -> S -> VP ;  -- say that she runs
    ComplVS vs s = predV vs ** { -- IL
-      obj = emptyObj ** {s = s.s ! vs.o} 
+      obj = emptyObj ** {s = vs.s2 ++ s.s ! vs.o} 
      } ;

    -- : VQ -> QS -> VP ;  -- wonder who runs