1
0
forked from GitHub/gf-rgl

added CompoundN

This commit is contained in:
Krasimir Angelov
2025-08-29 22:35:56 +02:00
parent 52b6305cf2
commit e78497e46d
3 changed files with 21 additions and 3 deletions

View File

@@ -19,8 +19,14 @@ concrete ExtendDan of Extend = CatDan **
GenRP
]
with (Grammar = GrammarDan)
** {
** open Prelude in {
flags coding=utf8 ;
lin CompoundN n1 n2 = {
s = \\n,s,c => n1.co ++ BIND ++ n2.s ! n ! s ! c ;
co = n1.co ++ BIND ++ n2.co ;
g = n2.g
} ;
}

View File

@@ -19,8 +19,14 @@ concrete ExtendNor of Extend = CatNor **
GenRP
]
with (Grammar = GrammarNor)
** {
** open Prelude in {
flags coding=utf8 ;
lin CompoundN n1 n2 = {
s = \\n,s,c => n1.co ++ BIND ++ n2.s ! n ! s ! c ;
co = n1.co ++ BIND ++ n2.co ;
g = n2.g
} ;
}

View File

@@ -19,8 +19,14 @@ concrete ExtendNno of Extend = CatNno **
GenRP
]
with (Grammar = GrammarNno)
** {
** open Prelude in {
flags coding=utf8 ;
lin CompoundN n1 n2 = {
s = \\n,s,c => n1.co ++ BIND ++ n2.s ! n ! s ! c ;
co = n1.co ++ BIND ++ n2.co ;
g = n2.g
} ;
}