add know_VS in LexiconBul.gf

2010-08-25 10:04:47 +00:00
parent b20821dfc3
commit 89f58454c4
4 changed files with 15 additions and 2 deletions
--- a/lib/src/bulgarian/ParadigmsBul.gf
+++ b/lib/src/bulgarian/ParadigmsBul.gf
@@ -1506,6 +1506,17 @@ oper
                          (v0+"˙í")
                          (v0+"˙ů")
                          (v0+"˙é") ;
+  mkV188 : Str -> VTable ;
+  mkV188 base = let v0 = tk 2 base
+                in mkVerb (v0+"ŕě")
+                          (v0+"ŕĺ")
+                          (v0+"ŕő")
+                          (v0+"ŕő")
+                          (v0+"ŕë")
+                          (v0+"ŕë")
+                          (v0+"ŕí")
+                          (v0+"ŕů")
+                          (v0+"ŕé") ;

  adjAdv : A -> Str -> A =
    \a,adv -> {s = a.s; adv = adv; lock_A=<>} ;