diff options
Diffstat (limited to 'otherlibs/labltk/support/cltkEval.c')
| -rw-r--r-- | otherlibs/labltk/support/cltkEval.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/otherlibs/labltk/support/cltkEval.c b/otherlibs/labltk/support/cltkEval.c index 168b9fe8f..cdd16a914 100644 --- a/otherlibs/labltk/support/cltkEval.c +++ b/otherlibs/labltk/support/cltkEval.c @@ -75,9 +75,9 @@ CAMLprim value camltk_tcl_eval(value str) switch (code) { case TCL_OK: - return tcl_string_to_caml(cltclinterp->result); + return tcl_string_to_caml(Tcl_GetStringResult(cltclinterp)); case TCL_ERROR: - tk_error(cltclinterp->result); + tk_error(Tcl_GetStringResult(cltclinterp)); default: /* TCL_BREAK, TCL_CONTINUE, TCL_RETURN */ tk_error("bad tcl result"); } @@ -234,9 +234,9 @@ CAMLprim value camltk_tcl_direct_eval(value v) switch (result) { case TCL_OK: - return tcl_string_to_caml (cltclinterp->result); + return tcl_string_to_caml (Tcl_GetStringResult(cltclinterp)); case TCL_ERROR: - tk_error(cltclinterp->result); + tk_error(Tcl_GetStringResult(cltclinterp)); default: /* TCL_BREAK, TCL_CONTINUE, TCL_RETURN */ tk_error("bad tcl result"); } |