[r2004-07-04 09:23:48 by afrisch] Register optional subsystems

Original author: afrisch
Date: 2004-07-04 09:23:48+00:00

ocamliface/mlstub.ml

@@ -476,6 +476,7 @@ let stub name ty_env c_env values =
      let module C = struct
       let cu = ...
       open Cduce_lib
+      Config.init_all ()
       let types = ...
       let rec <global translation functions>
       <fills external slots>
@@ -490,6 +491,7 @@ let stub name ty_env c_env values =
 
   let m = 
     [ <:str_item< open Cduce_lib >>;
+      <:str_item< Config.init_all () >>;
       <:str_item< value types = Librarian.registered_types cu >> ] @
     (if g = [] then [] else [ <:str_item< value rec $list:g$ >> ]) @
     [ <:str_item< Librarian.set_externals cu [|$list:exts$|] >>;