forked from GitHub/comp-syntax-gu-mlt
adjectives
This commit is contained in:
@@ -33,6 +33,12 @@ resource HangulJamo = open Prelude in {
|
||||
past_haeyo : (stem : Str) -> Str
|
||||
= \stem -> infinitive stem + "ᆻ어요" ;
|
||||
|
||||
vc_allomorph : (s,vowel,consonant : Str) -> Str
|
||||
= \s,v,c -> case s of {
|
||||
_ + #vowel => v ;
|
||||
_ => c
|
||||
} ;
|
||||
|
||||
oper
|
||||
a_o : pattern Str = #("ᅡ" | "ᅩ") ;
|
||||
a : pattern Str = #"ᅡ" ;
|
||||
|
||||
Reference in New Issue
Block a user