added case (de or a) to Romance infinitive noun and adj complements

This commit is contained in:
aarne
2011-10-27 08:10:48 +00:00
parent 8c3449fe0e
commit da8a6dc329
12 changed files with 16 additions and 15 deletions

View File

@@ -147,7 +147,7 @@ incomplete concrete NounRomance of Noun =
g = g
} ;
SentCN cn sc = let g = cn.g in {
s = \\n => cn.s ! n ++ sc.s ;
s = \\n => cn.s ! n ++ sc.s ! genitive ; -- raison de dormir
g = g
} ;
AdvCN cn sc = let g = cn.g in {