msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Kor) Small cleanup

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-24 14:36:30 +01:00
parent 5f04085084
commit cad155b0bb
3 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/korean/ResKor.gf
View File

@@ -99,6 +99,8 @@ oper
mkPrep : Str -> Postposition = \str -> ss str ;
emptyPP = mkPrep [] ;
--------------------------------------------------------------------------------
-- Adjectives
@@ -134,7 +136,7 @@ oper
mkVerb2 : (plain : Str) -> Verb2 = \plain ->
let v = mkVerb plain Active
in v ** {c2 = Object ; p2 = mkPrep []} ;
in v ** {c2 = Object ; p2 = emptyPP} ;
mkVerbFull : (x1,_,_,_,_,x6 : Str) -> VerbType -> Verb =
\plain,polite,formal,planeg,polneg,formneg,vt -> {