rename the s2 field in VP and VPSlash to compl

This commit is contained in:
krasimir
2008-06-13 22:27:59 +00:00
parent 9ad1cb5749
commit 1ad2aad18f
6 changed files with 20 additions and 20 deletions

View File

@@ -11,7 +11,7 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
s = \\p,gn =>
let agr = {gn = gn ; p = P2} ;
verb = vp.imp ! p ! numGenNum gn ! Perf ;
compl = vp.s2 ! agr
compl = vp.compl ! agr
in
verb ++ compl
} ;