mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-17 02:50:12 -06:00
15 lines
234 B
Plaintext
15 lines
234 B
Plaintext
concrete ExtendAfr of Extend =
|
|
CatAfr ** ExtendFunctor
|
|
with
|
|
(Grammar = GrammarAfr) **
|
|
|
|
open
|
|
ResAfr in {
|
|
|
|
lin GivenName, Surname = \n -> n ;
|
|
lin FullName gn sn = {
|
|
s = \\c => gn.s ! NPNom ++ sn.s ! c ;
|
|
} ;
|
|
|
|
}
|