fixed QuestIAdv

This commit is contained in:
Meowyam
2021-12-30 23:19:38 +08:00
committed by Inari Listenmaa
parent 43a02443bb
commit 0190fe2943
2 changed files with 1 additions and 2 deletions

View File

@@ -50,7 +50,7 @@ lin
-- : IAdv -> Cl -> QCl ; -- why does John walk
QuestIAdv iadv cls = {
pred = \\vf,pol => cls.pred ! vf ! pol ++ iadv.s;
pred = \\vf,pol => cls.pred ! Root ! pol ++ iadv.s;
subj = cls.subj ;
} ;

View File

@@ -133,7 +133,6 @@ oper
} ;
-- s = \\p,a => vp.topic ++ np ++ vp.prePart ++ useVerb vp.verb ! p ! a ++ vp.compl ++ compl ;
-- np = vp.topic ++ np ;
-- vp = insertObj (ss compl) vp ;