forked from GitHub/gf-rgl
extensions from Codex
This commit is contained in:
@@ -3,4 +3,8 @@ concrete AdverbHye of Adverb = CatHye ** open Prelude,ResHye in {
|
||||
False => np.s ! p.c ++ p.s;
|
||||
True => p.s ++ np.s ! p.c
|
||||
}} ;
|
||||
lin PositAdvAdj a = {s = a.s ! Instr ! Sg} ;
|
||||
lin PositAdAAdj a = {s = a.s ! Instr ! Sg} ;
|
||||
lin AdAdv ada adv = {s = ada.s ++ adv.s} ;
|
||||
lin SubjS subj s = {s = subj.s ++ s.s} ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user