mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
restored ExtensionsGer.CompoundN so that it compiles with the current RGL
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user