(Kor) Fixes in adverbs + related unit tests

This commit is contained in:
Inari Listenmaa
2020-03-26 20:43:52 +01:00
parent 1acaa57c49
commit dbaa52be08
6 changed files with 27 additions and 8 deletions
+5 -1
View File
@@ -11,7 +11,11 @@ lin
-- ComparAdvAdjS : CAdv -> A -> S -> Adv ; -- more warmly than he runs
-- : Prep -> NP -> Adv ;
PrepNP prep np = {s = glue (np.s ! Bare) prep.s} ;
PrepNP prep np = {
s = case prep.attaches of {
True => glue (np.s ! Bare) prep.s ;
False => np.s ! Bare ++ prep.s }
} ;
-- Adverbs can be modified by 'adadjectives', just like adjectives.