forked from GitHub/gf-rgl
Ara.ExtAdvS
This commit is contained in:
@@ -71,4 +71,5 @@ concrete SentenceAra of Sentence = CatAra ** open
|
|||||||
UseSlash t p cls = UseCl t p (complClSlash cls) ;
|
UseSlash t p cls = UseCl t p (complClSlash cls) ;
|
||||||
|
|
||||||
AdvS adv s = s ** {s = \\o => adv.s ++ s.s ! o} ;
|
AdvS adv s = s ** {s = \\o => adv.s ++ s.s ! o} ;
|
||||||
|
ExtAdvS adv s = s ** {s = \\o => adv.s ++ s.s ! o} ;
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user