sentence-referring relatives in exper

This commit is contained in:
aarne
2008-04-24 16:52:56 +00:00
parent ae7192f46f
commit dd85f1ab78
3 changed files with 8 additions and 0 deletions

View File

@@ -58,6 +58,8 @@ concrete SentenceEng of Sentence = CatEng ** open Prelude, ResEng in {
AdvS a s = {s = a.s ++ "," ++ s.s} ;
RelS s r = {s = s.s ++ "," ++ r.s ! agrP3 Sg} ;
oper
ctr = contrNeg True ; -- contracted negations