Chargement dynamique de primitives C

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3677 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 4 insertions, 4 deletions

diff --git a/otherlibs/labltk/support/cltkVar.c b/otherlibs/labltk/support/cltkVar.c
index efca7621a..123595cd9 100644
--- a/otherlibs/labltk/support/cltkVar.c
+++ b/otherlibs/labltk/support/cltkVar.c
@@ -25,7 +25,7 @@
 #include <callback.h>
 #include "camltk.h"
 
-value camltk_getvar(value var) /* ML */
+CAMLprim value camltk_getvar(value var)
 {
   char *s;
   char *stable_var = NULL;
@@ -42,7 +42,7 @@ value camltk_getvar(value var) /* ML */
     return(copy_string(s));
 }
 
-value camltk_setvar(value var, value contents) /* ML */
+CAMLprim value camltk_setvar(value var, value contents)
 {
   char *s;
   char *stable_var = NULL;
@@ -82,7 +82,7 @@ static char * tracevar(ClientData clientdata, Tcl_Interp *interp,
 }
 
 /* Sets up a callback upon modification of a variable */
-value camltk_trace_var(value var, value cbid) /* ML */
+CAMLprim value camltk_trace_var(value var, value cbid)
 {
   char *cvar = NULL;
 
@@ -103,7 +103,7 @@ value camltk_trace_var(value var, value cbid) /* ML */
   return Val_unit;
 }
 
-value camltk_untrace_var(value var, value cbid) /* ML */
+CAMLprim value camltk_untrace_var(value var, value cbid)
 {
   char *cvar = NULL;