From 1b7465e893131c8a8b27078704223ecfb2311119 Mon Sep 17 00:00:00 2001 From: matz Date: Tue, 20 Jun 2006 18:02:17 +0000 Subject: * eval.c, file.c, etc.: code-cleanup patch from Stefan Huehner . [ruby-core:08029] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10351 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/tcltklib.c | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'ext/tk/tcltklib.c') 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); -- cgit v1.2.3