diff options
| author | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2010-04-03 06:43:51 +0000 |
|---|---|---|
| committer | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2010-04-03 06:43:51 +0000 |
| commit | f5fc4d52079c0eb2a91e2cbc3c7c23f6554e43cb (patch) | |
| tree | feeec35aaf445ec41d4b1cb9e529a3193b2ad217 /otherlibs/labltk/support/cltkDMain.c | |
| parent | ab550592efa74f1f67a705f84251cce7e32a64c6 (diff) | |
fix for tk86 and removal of tkanim
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@10230 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/support/cltkDMain.c')
| -rw-r--r-- | otherlibs/labltk/support/cltkDMain.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/otherlibs/labltk/support/cltkDMain.c b/otherlibs/labltk/support/cltkDMain.c index 9272e8fc2..3d9a4c2df 100644 --- a/otherlibs/labltk/support/cltkDMain.c +++ b/otherlibs/labltk/support/cltkDMain.c @@ -223,7 +223,7 @@ int Caml_Init(interp) if (0 == access(f,R_OK)) if (TCL_OK != Tcl_EvalFile(cltclinterp,f)) { stat_free(f); - tk_error(cltclinterp->result); + tk_error(Tcl_GetStringResult(cltclinterp)); }; stat_free(f); } |