Maltese RG: Fix apposition. Add ExtAdvNP & ExtAdvVP. Fix adjective order.

This commit is contained in:
john.j.camilleri
2013-12-03 08:19:38 +00:00
parent 9e843ca6d3
commit 1da2d88cd0
4 changed files with 13 additions and 4 deletions
+4
View File
@@ -115,6 +115,10 @@ concrete VerbMlt of Verb = CatMlt ** open Prelude, ResMlt in {
False => insertObj (\\_ => adv.s) vp
} ;
-- VP -> Adv -> VP
-- sleep , even though ...
ExtAdvVP vp adv = insertObj (\\_ => "," ++ adv.s ++ ",") vp ;
-- AdV -> VP -> VP
-- always sleep
AdVVP adv vp = insertAdV adv.s vp ;