restored ExtensionsGer.CompoundN so that it compiles with the current RGL

This commit is contained in:
aarne
2015-05-22 12:27:35 +00:00
parent b57e5dcc12
commit fa7a2f601a

View File

@@ -63,12 +63,24 @@ lin
PredVPosv = G.PredVP;
PredVPovs = G.PredVP;
CompoundN noun cn = {
s = \\n,c => glue noun.co (cn.uncap.s ! n ! c) ;
co = glue noun.co (cn.uncap.co) ;
uncap = {
s = \\n,c => glue noun.uncap.co (cn.uncap.s ! n ! c) ;
co = glue noun.uncap.co (cn.uncap.co)
} ;
g = cn.g
} ;
{- ---- doesn't compile AR 22/5/2015
CompoundN noun cn = {
s = \\n,c => glue noun.co (cn.s ! n ! c) ;
co = glue noun.co (cn.co) ;
g = cn.g
} ;
-}
CompoundAP noun adj = {
s = \\af => glue (noun.s ! Sg ! Nom) (adj.s ! Posit ! af) ;
isPre = True