Commits

camlspotter committed bd66edf Merge

merge

Comments (0)

Files changed (2)

     include Module
       
     module X : sig
-      val addToSys : string -> [>_Module] t -> unit
-	(** [addToSys name m] registers a module [m] as [name] into
+      val setToSys : string -> [>_Module] t -> unit
+	(** [setToSys name m] registers a module [m] as [name] into
 	    the Python system modules dictionary. *)
 
       val setItemString : [>_Module] t -> string -> [>_Object] t -> unit
 	(** [setItemString m name t] adds object [t] to the module [m]'s
 	    dictionary as [name]. *)
     end = struct
-      let addToSys name m =
+      let setToSys name m =
 	let sys = Import.importModule "sys" in
 	let sysdict = Module.getDict sys in
 	let modules = Dict.coerce (Dict.getItemString sysdict "modules") in
     prerr_endline "*** new module creation";
     let m = Module.new_ "foo" in
     Module.setItemString m "bar" xx;
-    Module.addToSys "foo" m;
+    Module.setToSys "foo" m;
     prerr_endline "* check / import foo / foo.__dict__ / foo.bar";
 
     prerr_endline "*** OCaml value embedding";