forked from GitHub/gf-rgl
Krasimir Angelov
10 lines
197 B
Plaintext
10 lines
197 B
Plaintext
concrete NamesChi of Names = CatChi ** {
|
|
|
|
lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> n ** {det = []} ;
|
|
lin FullName gn sn = {
|
|
s = gn.s ++ sn.s ;
|
|
det = []
|
|
} ;
|
|
|
|
}
|