From 4b80a15b6cfba4579716e4006956eb6feaca26f8 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Tue, 12 Nov 2013 09:58:39 +0000
Subject: [PATCH] fixes in DictEngBul and one more paradigm in ParadigmsBul

---
 lib/src/bulgarian/DictEngBul.gf   |  6 +++---
 lib/src/bulgarian/ParadigmsBul.gf | 12 ++++++++++++
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/lib/src/bulgarian/DictEngBul.gf b/lib/src/bulgarian/DictEngBul.gf
index f971bf825..017fc4ee8 100644
--- a/lib/src/bulgarian/DictEngBul.gf
+++ b/lib/src/bulgarian/DictEngBul.gf
@@ -5782,7 +5782,7 @@ lin biconvex_A = variants {};
 lin bicorn_A = variants {};
 lin bicorn_N = variants {};
 lin bicuspid_A = variants {};
-lin bicycle_N = mkN007 "велосипед" ; ----
+lin bicycle_N = variants {mkN076 "колело"; mkN007 "велосипед"};
 lin bicycle_V = variants {};
 lin bicyclic_A = variants {};
 lin bicycling_N = variants {};
@@ -56679,7 +56679,7 @@ lin treble_N = variants {};
 lin treble_V = variants {};
 lin treble_V2 = variants {};
 lin tredegar_PN = variants {};
-lin tree_N = mkN061 "дърво" ;
+lin tree_N = dualN (mkN076 "дърво") (mkA079 "дървесен");
 lin tree_V2 = variants {};
 lin tree_fern_N = variants {};
 lin treehopper_N = variants {};
@@ -61616,7 +61616,7 @@ lin wont_A = mkA076 "навикнал";
 lin wont_N = mkN014 "навик";
 lin wonted_A = mkA085 "обичаен";
 lin woo_V2 = dirV2 (singleV (mkV186 "ухажвам"));
-lin wood_N = mkN061 "дърво";
+lin wood_N = dualN (mkN061 "дърво") (mkA076 "дървен");
 lin wood_block_N = variants {};
 lin wood_pulp_N = variants {};
 lin woodbine_N = variants {};
diff --git a/lib/src/bulgarian/ParadigmsBul.gf b/lib/src/bulgarian/ParadigmsBul.gf
index 8402d2427..25724e295 100644
--- a/lib/src/bulgarian/ParadigmsBul.gf
+++ b/lib/src/bulgarian/ParadigmsBul.gf
@@ -1210,6 +1210,18 @@ oper
                      g = ANeut ;
                      lock_N = <>
                    } ;
+  mkN076 : Str -> N ;
+  mkN076 base = let v0 = tk 1 base;
+                    g  = ANeut
+                in {s = mkNoun (v0+"�")
+                               (v0+"���")
+                               (v0+"���")
+                               (v0+"�")
+                               g ;
+                    rel = \\_ => base ;
+                    g   = g ;
+                    lock_N = <>
+                   };
   mkA076 : Str -> A ;
   mkA076 base = let v0 = base
                 in mkAdjective (v0)