fixed RelSlash; sta

This commit is contained in:
Roman Suzi
2020-07-27 23:22:00 +03:00
parent 9918e391b3
commit a76a017064
4 changed files with 9 additions and 5 deletions

View File

@@ -16,11 +16,11 @@ lin
} ;
-- : RP -> ClSlash -> RCl ; -- whom John loves
RelSlash rp cls = {
subj=rp.s ;
adv=\\a=>cls.adv ; -- TODO: this should be after subj in this case
subj=\\gn,anim,cas => cls.c.s ++ (rp.s ! gn ! Inanimate ! cls.c.c) ++ cls.subj ;
adv=\\a=>cls.adv ;
verb=cls.verb ;
dep=cls.dep ;
compl=\\a=>cls.compl ;
compl=\\a=> cls.compl ;
a=cls.a
} ;