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

more cases to Chi.mkA2

Browse Source
This commit is contained in:
Aarne Ranta
2018-04-25 08:42:20 +02:00
parent 9e95b1df99
commit 2de326e8a3
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/chinese/ParadigmsChi.gf
View File

@@ -35,8 +35,15 @@ oper
= \a,b -> lin A (mkAdj a b) ;
} ;
mkA2 : Str -> A2 = \a -> lin A2 (simpleAdj a ** {c2 = emptyPrep}) ;
mkA2 = overload {
mkA2 : Str -> A2
= \a -> lin A2 (simpleAdj a ** {c2 = emptyPrep}) ;
mkA2 : A -> A2
= \a -> lin A2 (a ** {c2 = emptyPrep}) ;
mkA2 : A -> Prep -> A2
= \a,p -> lin A2 (a ** {c2 = p}) ;
} ;
mkV = overload {
mkV : (walk : Str) -> V
= \walk -> case walk of {