Ioanna's Gre fixes; find_V2 doesn't compile and is commented out.

This commit is contained in:
aarne
2013-05-10 08:44:15 +00:00
parent 78d0bfdf21
commit 65d29d6ecb
11 changed files with 190 additions and 125 deletions

View File

@@ -65,7 +65,7 @@ concrete NounGre of Noun = CatGre ** open ResGre, ParadigmsGre, Prelude in {
RelNP np rs = {
s = \\c => {
comp = (np.s ! c).comp ++ "," ++ rs.s! Ind ! np.a ;
comp = (np.s ! c).comp ++ rs.s! Ind ! np.a ;
c1 = [] ;
c2 = [] ;
isClit = False
@@ -208,7 +208,7 @@ concrete NounGre of Noun = CatGre ** open ResGre, ParadigmsGre, Prelude in {
ApposCN cn np =
let g = cn.g
in {
s = \\n,c => cn.s ! n ! c ++ (np.s ! Nom).comp ;
s = \\n,c =>cn.s ! n ! c ++ (np.s ! c).comp ;
g = g
} ;