Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Erreurs de syntaxe. Ce fichier sert-il a quelque chose? 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3097 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2000-04-17 08:52:45 +00:00
parent 3c7629c2c3
commit 790770e1ca
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
otherlibs/labltk/support/slave.ml
View File

@ -28,13 +28,14 @@ let dynload args =
(* Default modules include everything from (* Default modules include everything from
let default_modules = [] let default_modules = []
*)
(* [caml::run foo.cmo .. bar.cmo] is now available from Tcl *) (* [caml::run foo.cmo .. bar.cmo] is now available from Tcl *)
let init () = let init () =
Dynlink.init(); Dynlink.init();
(* Make it unsafe by default, with everything available *) (* Make it unsafe by default, with everything available *)
Dynlink.allow_unsafe_modules true; Dynlink.allow_unsafe_modules true;
Dynlink.add_interfaces [] [] Dynlink.add_interfaces [] [];
let s = register_callback Widget.dummy dynload in let s = register_callback Widget.dummy dynload in
tcl_command (sprintf "proc caml::run {l} {camlcb %s l}" s) tcl_command (sprintf "proc caml::run {l} {camlcb %s l}" s)