(Ara) add parameter to uttVP oper

This commit is contained in:
Inari Listenmaa
2019-01-14 21:22:42 +01:00
parent 6348f06052
commit 51e714864e
4 changed files with 5 additions and 5 deletions
+1 -1
View File
@@ -18,7 +18,7 @@ concrete PhraseAra of Phrase = CatAra ** open
UttCN cn = {s = ResAra.uttCN cn } ; --IL
UttNP np = {s = \\_ => np.s ! Nom} ;
UttVP vp = {s = uttVP vp} ; --IL
UttVP vp = {s = uttVP VPPerf vp} ; --IL
UttS s = {s = \\_ => s.s ! Verbal} ;
UttAdv,
UttIAdv = \s -> {s = \\_ => s.s} ; ---- OK? AR