From 790770e1cace566ab377e4371ce8d813dd37879c Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Mon, 17 Apr 2000 08:52:45 +0000
Subject: [PATCH] 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
---
 otherlibs/labltk/support/slave.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/otherlibs/labltk/support/slave.ml b/otherlibs/labltk/support/slave.ml
index 5352285c3..e3259fc66 100644
--- a/otherlibs/labltk/support/slave.ml
+++ b/otherlibs/labltk/support/slave.ml
@@ -28,13 +28,14 @@ let dynload args =
 
 (* Default modules include everything from 
 let default_modules = []
+*)
 
 (* [caml::run foo.cmo .. bar.cmo] is now available from Tcl *)
 let init () =
   Dynlink.init();
   (* Make it unsafe by default, with everything available *)
   Dynlink.allow_unsafe_modules true;
-  Dynlink.add_interfaces [] []
+  Dynlink.add_interfaces [] [];
   let s = register_callback Widget.dummy dynload in
   tcl_command (sprintf "proc caml::run {l} {camlcb %s l}" s)