Commit afed6a0b authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: afrisch
Date: 2004-07-04 09:23:48+00:00
parent 7429be71
......@@ -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$|] >>;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment