Fixing the ec generator: do not dump constant and type definition.

src/lazyCompiler.ml

-(** Time-stamp: <modified the 04/02/2009 (at 15:27) by Erwan Jahier> *)
+(** Time-stamp: <modified the 05/02/2009 (at 16:32) by Erwan Jahier> *)
 
 
 open Lxm
@@ -411,7 +411,11 @@ and (type_check_do: t -> Ident.long -> Lxm.t -> SymbolTab.t -> bool ->
             )
       in
       let is_struct = match type_def.it with StructType _ -> true | _  -> false in
-        if (not provide_flag) & (not (!Global.expand_structs & is_struct)) then
+        if 
+          (not provide_flag) 
+          & (not (!Global.expand_structs & is_struct)) 
+          && not !Global.ec (* ec does not need type decl *)
+        then
           output_string !Global.oc (LicDump.type_decl type_name type_eff);
         type_eff
     )
@@ -476,7 +480,10 @@ and (const_check_do : t -> Ident.long -> Lxm.t -> SymbolTab.t -> bool ->
                                              "bad constant value: tuple not allowed"))
             )
       in
-        if not provide_flag then
+        if 
+          not provide_flag 
+          && not !Global.ec (* ec does not need constant decl *)
+        then
           output_string !Global.oc (LicDump.const_decl cn const_eff);
         const_eff
     ) with Recursion_error (root, stack) -> (