unbounded dep in resource with SlashVS

This commit is contained in:
aarne
2007-11-03 20:41:29 +00:00
parent 6f0009b11b
commit 7003654ca6
18 changed files with 452 additions and 347 deletions

View File

@@ -9,7 +9,8 @@ incomplete concrete NounRomance of Noun =
g = cn.g ;
n = det.n
in {
s = \\c => det.s ! g ! npform2case c ++ cn.s ! n ;
s = \\c => let cs = npform2case c in
prepCase cs ++ det.s ! g ! cs ++ cn.s ! n ;
a = agrP3 g n ;
hasClit = False
} ;