Some progress on the implementation of mkClause

2026-06-29 18:48:37 -06:00 · 2017-08-22 12:03:59 +03:00
parent 27357ad684
commit 27da43c37d
2 changed files with 4 additions and 2 deletions
@@ -68,5 +68,5 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
    mkPrep : Str -> Case -> {s : Str; c : Case; lock_Prep : {}} = \s,c -> lin Prep {s=s; c=c};

    mkClause : Str -> Verb -> {s : Str} =
-      \np, v -> ss "TODO" ;
+      \np, v -> ss (np ++ v.s ! VInfinitive) ;
 }