forked from GitHub/gf-rgl
7 lines
201 B
Plaintext
7 lines
201 B
Plaintext
concrete RelativeKaz of Relative = CatKaz ** open ResKaz, (P = ParamX) in {
|
|
lin
|
|
IdRP = {s=""} ;
|
|
RelVP rp vp = {s=rp.s ++ vp.infinitive} ;
|
|
RelSlash rp cl = {s=rp.s ++ cl.pres ! P.Pos} ;
|
|
}
|