use SOFT_BIND in the Bulgarian and Swedish grammars

This commit is contained in:
kr.angelov
2013-11-12 10:18:35 +00:00
parent 4b80a15b6c
commit d6f73f175f
11 changed files with 16 additions and 13 deletions

View File

@@ -33,7 +33,7 @@ lin
insertObj (\\a => vps.c2.s ++ vps.n3 ! a) (passiveVP vps) ;
RelVS s rvs = {s = \\o => s.s ! o ++ "," ++ rvs.s ! agrP3 Neutr Sg ! RPrep True} ;
RelVS s rvs = {s = \\o => s.s ! o ++ comma ++ rvs.s ! agrP3 Neutr Sg ! RPrep True} ;
RelSlashVS t p vs np = let vpform = VPFinite t.t t.a ;
cl = PredVP np (predV vs) ;
vilket = IdRP.s ! Neutr ! Sg ! (RPrep True) in

View File

@@ -113,7 +113,7 @@ lin
PresPartRS ant pol vp = mkRS ant pol (mkRCl which_RP vp) ; --- probably not as participle construction
ApposNP np1 np2 = {
s = \\c => np1.s ! c ++ "," ++ np2.s ! NPNom ;
s = \\c => np1.s ! c ++ comma ++ np2.s ! NPNom ;
a = np1.a
} ;