verbosity in make phrasebook ; removed own hacks in LexiconBul

examples/phrasebook/Compile.hs

@@ -29,12 +29,14 @@ main = do
     else return ()
   case opts of
     _ | elem "-make" opts || elem "-link" opts -> do
-      system $ "gf -make -s " ++ unwords (map (++ ".pgf") modus)
+      let comm = "gf -make -s " ++ unwords (map (++ ".pgf") modus)
+      putStrLn comm
+      system comm
       return () 
     _ -> return ()
 
 compileOne modu = do
-  let comm = "gf -make -s -name=" ++ modu ++ " " ++ modu ++ ".gf"
+  let comm = "gf -make -s -optimize-pgf -name=" ++ modu ++ " " ++ modu ++ ".gf"
   putStrLn comm
   system comm
 

lib/src/bulgarian/LexiconBul.gf

@@ -113,6 +113,7 @@ lin
               vtype  = VNormal ;
               lock_V = <>
             } ;
+  know_VS = mkVS (actionV (mkV188 "çíàì") (mkV162 "çíàÿ")) ;
   lake_N = mkN054 "åçåðî" ;
   lamp_N = mkN041 "ëàìïà" ;
   learn_V2 = dirV2 (actionV (mkV176 "ó÷à") (mkV176 "íàó÷à")) ;
@@ -377,14 +378,4 @@ oper
                       "ñúñ" / strs {"ñ" ; "ç" ; "Ñ" ; "Ç"}
                     })  Acc ;
 
-oper know_V : V =
-{
-              s      = \\_,vform => case vform of {
-                                      VPassive aform => (mkA079 "èçâåñòåí").s ! aform ;
-                                      _              => mkV162 "çíàÿ" ! vform
-                                    } ;
-              vtype  = VNormal ;
-              lock_V = <>
-            } ;
-
 } ;