(Ara) Add subordinate clauses

This commit is contained in:
Inari Listenmaa
2018-11-16 17:21:29 +01:00
parent c4f207a541
commit 5a6fe1e336
8 changed files with 30 additions and 25 deletions
+2 -1
View File
@@ -28,7 +28,8 @@ 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 } ;
obj = emptyObj ** {s = s.s ! Subord}
} ;
-- : VQ -> QS -> VP ; -- wonder who runs
ComplVQ vq qs = predV vq ** { -- IL