adjectives

This commit is contained in:
2026-02-12 16:12:00 -07:00
parent 8999d3e38c
commit 533d2e7e9f
3 changed files with 29 additions and 11 deletions

View File

@@ -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 = #"ᅡ" ;