Remove superfluous RP argument to EmptyRelSlash.

This commit is contained in:
bjorn
2008-10-29 13:06:03 +00:00
parent 97e1f27a0c
commit 03fb2af472
4 changed files with 4 additions and 4 deletions

View File

@@ -11,7 +11,7 @@ abstract Extra = Cat ** {
ComplBareVS : VS -> S -> VP ; -- know you go
StrandRelSlash : RP -> ClSlash -> RCl ; -- that he lives in
EmptyRelSlash : RP -> ClSlash -> RCl ; -- he lives in
EmptyRelSlash : ClSlash -> RCl ; -- he lives in
StrandQuestSlash : IP -> ClSlash -> QCl ; -- whom does John live with
-- $VP$ conjunction, which has different fragments implemented in

View File

@@ -10,7 +10,7 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
rp.s ! RC (fromAgr ag).g Acc ++ slash.s ! t ! a ! p ! ODir ++ slash.c2 ;
c = Acc
} ;
EmptyRelSlash rp slash = {
EmptyRelSlash slash = {
s = \\t,a,p,_ => slash.s ! t ! a ! p ! ODir ++ slash.c2 ;
c = Acc
} ;

View File

@@ -10,7 +10,7 @@
-- rp.s ! RC (fromAgr ag).g Acc ++ slash.s ! t ! a ! p ! ODir ++ slash.c2 ;
-- c = Acc
-- } ;
-- EmptyRelSlash rp slash = {
-- EmptyRelSlash slash = {
-- s = \\t,a,p,_ => slash.s ! t ! a ! p ! ODir ++ slash.c2 ;
-- c = Acc
-- } ;

View File

@@ -13,7 +13,7 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
rp.s ! ag.gn ! RNom ++ slash.s ! t ! a ! p ! Sub ++ slash.c2.s ;
c = NPAcc
} ;
EmptyRelSlash rp slash = {
EmptyRelSlash slash = {
s = \\t,a,p,ag =>
slash.s ! t ! a ! p ! Sub ++ slash.c2.s ;
c = NPAcc