mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-13 00:50:11 -06:00
11 lines
195 B
Plaintext
11 lines
195 B
Plaintext
concrete ExtraPol of ExtraPolAbs = CatPol ** open ResPol in {
|
|
|
|
lin
|
|
|
|
QualifierCN adj cn = {
|
|
s = \\n,c => (cn.s ! n ! c) ++ (adj.s ! AF (cast_gennum!<cn.g,n>) c);
|
|
g = cn.g
|
|
};
|
|
|
|
}
|