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

refinements

Browse Source
This commit is contained in:
virk.shafqat
2012-03-05 09:33:23 +00:00
parent 512c9ad021
commit a5759741a5
34 changed files with 195 additions and 192 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/hindi/ParadigmsHin.gf
+5 -2
View File
@@ -68,11 +68,14 @@ oper
mkA = overload {
mkA : Str-> A
= \s -> regAdjective s ** {lock_A = <>} ;
mkA : Str -> Str -> A2
mkA : Str -> Str -> A2
= \a,c -> let n = regAdjective a in {s = n.s; c2 = c} ** {lock_A2 = <>} ;
mkA : A -> Str -> A2
= \a,c -> a ** {c2 = c ; lock_A2 = <>};
} ;
mkIrregA : Str -> Str -> A2 = \str,c -> makeIrregA str ** {c2 = c ; lock_A2 = <>} ;
mkIrregA : Str -> A = \str -> makeIrregA str ;
--2 Verbs