forked from GitHub/gf-core
rename the s2 field in VP and VPSlash to compl
This commit is contained in:
@@ -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
|
||||
} ;
|
||||
|
||||
Reference in New Issue
Block a user