mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
fixed QuestIAdv
This commit is contained in:
@@ -50,7 +50,7 @@ lin
|
|||||||
|
|
||||||
-- : IAdv -> Cl -> QCl ; -- why does John walk
|
-- : IAdv -> Cl -> QCl ; -- why does John walk
|
||||||
QuestIAdv iadv cls = {
|
QuestIAdv iadv cls = {
|
||||||
pred = \\vf,pol => cls.pred ! vf ! pol ++ iadv.s;
|
pred = \\vf,pol => cls.pred ! Root ! pol ++ iadv.s;
|
||||||
subj = cls.subj ;
|
subj = cls.subj ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
@@ -133,7 +133,6 @@ oper
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
-- s = \\p,a => vp.topic ++ np ++ vp.prePart ++ useVerb vp.verb ! p ! a ++ vp.compl ++ compl ;
|
-- s = \\p,a => vp.topic ++ np ++ vp.prePart ++ useVerb vp.verb ! p ! a ++ vp.compl ++ compl ;
|
||||||
-- np = vp.topic ++ np ;
|
-- np = vp.topic ++ np ;
|
||||||
-- vp = insertObj (ss compl) vp ;
|
-- vp = insertObj (ss compl) vp ;
|
||||||
|
|||||||
Reference in New Issue
Block a user