fix for tk86 and removal of tkanim

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

1 files changed, 5 insertions, 5 deletions

diff --git a/otherlibs/labltk/support/cltkVar.c b/otherlibs/labltk/support/cltkVar.c
index 674b8e9db..0411a94cd 100644
--- a/otherlibs/labltk/support/cltkVar.c
+++ b/otherlibs/labltk/support/cltkVar.c
@@ -38,8 +38,8 @@ CAMLprim value camltk_getvar(value var)
   stat_free(stable_var);
 
   if (s == NULL)
-    tk_error(cltclinterp->result);
-  else
+    tk_error(Tcl_GetStringResult(cltclinterp));
+  else 
     return(tcl_string_to_caml(s));
 }
 
@@ -64,8 +64,8 @@ CAMLprim value camltk_setvar(value var, value contents)
   stat_free(utf_contents);
 
   if (s == NULL)
-    tk_error(cltclinterp->result);
-  else
+    tk_error(Tcl_GetStringResult(cltclinterp));
+  else 
     return(Val_unit);
 }
 
@@ -104,7 +104,7 @@ CAMLprim value camltk_trace_var(value var, value cbid)
                    (ClientData) (Long_val(cbid)))
                    != TCL_OK) {
     stat_free(cvar);
-    tk_error(cltclinterp->result);
+    tk_error(Tcl_GetStringResult(cltclinterp));
   };
   stat_free(cvar);
   return Val_unit;