(Ara) replace Agr by AAgr in Obj

2018-12-18 16:30:57 +01:00
parent 038cb2536f
commit ef261ac4d2
3 changed files with 15 additions and 8 deletions
@@ -97,7 +97,9 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra, ParamX in {

    CompCN cn = {s = \\agr,c => cn2str cn agr.n Indef Nom ;
                 obj = emptyObj ; isNP = False} ;
-    CompNP np = {s = \\_,_ => [] ; obj = np ** {s = np.s ! Nom} ; isNP = True} ;
+    CompNP np = {s = \\_,_ => [] ; 
+                 obj = {s = np.s ! Nom ; a = agrLite np.a} ; 
+                 isNP = True} ;
 --
 --
 }