@@ -328,11 +328,11 @@ } append code "static $rtype2 ${cname}($cargs_str) \{\n" append code $body append code "\}\n" } else { - append code "#define $cname [namespace tail $name]" "\n" + set cname [namespace tail $name] } # Create wrapper function ## Supported input types ## Tcl_Interp*