Tcldot_string_writer: remove unnecessary cast

This pointer implicitly coerces.

diff --git a/tclpkg/tcldot/tcldot-util.c b/tclpkg/tcldot/tcldot-util.c
index b2542edaf3ac6a4afe0ba4fc8329fdd1e608f19f..da8e34250a77c4368bdd71dfb3e09e910883e19f 100644 (file)
--- a/tclpkg/tcldot/tcldot-util.c
+++ b/tclpkg/tcldot/tcldot-util.c
@@ -14,7 +14,7 @@
 
 size_t Tcldot_string_writer(GVJ_t *job, const char *s, size_t len)
 {
-    Tcl_AppendResult((Tcl_Interp*)(job->context), s, NULL);
+    Tcl_AppendResult(job->context, s, NULL);
     return len;
 }