forked from GitHub/gf-rgl
Ayberk Tosun
12 lines
198 B
Plaintext
12 lines
198 B
Plaintext
concrete VerbTur of Verb = CatTur ** open ResTur in {
|
|
|
|
lin
|
|
UseV v = v ;
|
|
SlashV2a v = v ;
|
|
|
|
ComplSlash vps np = {
|
|
s = \\ vf => vps.c.s ++ np.s ! vps.c.c ++ vps.s ! vf ;
|
|
} ;
|
|
|
|
}
|