forked from GitHub/gf-rgl
(Kor) Add NForm as a parameter to A2
This commit is contained in:
@@ -11,11 +11,7 @@ lin
|
||||
-- ComparAdvAdjS : CAdv -> A -> S -> Adv ; -- more warmly than he runs
|
||||
|
||||
-- : Prep -> NP -> Adv ;
|
||||
PrepNP prep np = {
|
||||
s = case prep.attaches of {
|
||||
True => glue (np.s ! Bare) (prep.s ! np.p) ;
|
||||
False => np.s ! Bare ++ (prep.s ! np.p)}
|
||||
} ;
|
||||
PrepNP = prepNP Bare ;
|
||||
|
||||
-- Adverbs can be modified by 'adadjectives', just like adjectives.
|
||||
|
||||
|
||||
Reference in New Issue
Block a user