diff options
author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2006-06-20 18:02:17 +0000 |
---|---|---|
committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2006-06-20 18:02:17 +0000 |
commit | 1b7465e893131c8a8b27078704223ecfb2311119 (patch) | |
tree | 1ef49f987a8f65bdb2c1396bf681c4f4e2ca8b6c /ext/tk/tcltklib.c | |
parent | 866e083484738db8ba8b8b37674d9292ef7cb84a (diff) |
* eval.c, file.c, etc.: code-cleanup patch from Stefan Huehner
<stefan at huehner.org>. [ruby-core:08029]
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10351 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/tcltklib.c')
-rw-r--r-- | ext/tk/tcltklib.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index e43b98e2c1..862e817a7e 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -124,9 +124,7 @@ static VALUE tk_funcall _((VALUE(), int, VALUE*, VALUE)); /* safe Tcl_Eval and Tcl_GlobalEval */ static int -tcl_eval(interp, cmd) - Tcl_Interp *interp; - const char *cmd; /* don't have to be writable */ +tcl_eval(Tcp_Interp interp, const char *cmd) { char *buf = strdup(cmd); const int ret = Tcl_Eval(interp, buf); @@ -138,9 +136,7 @@ tcl_eval(interp, cmd) #define Tcl_Eval tcl_eval static int -tcl_global_eval(interp, cmd) - Tcl_Interp *interp; - const char *cmd; /* don't have to be writable */ +tcl_global_eval(Tcp_Interp *interp, const char *cmd) { char *buf = strdup(cmd); const int ret = Tcl_GlobalEval(interp, buf); |