vec.c: Explicitly strip constness: we know this one's safe.

[rocl] / vec.c

diff --git a/vec.c b/vec.c
index c2aef2e..0383c88 100644 (file)
--- a/vec.c
+++ b/vec.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: vec.c,v 1.1 2003/03/07 00:45:35 mdw Exp $
+ * $Id$
  *
  * Vectors and arrays in Tcl
  *
@@ -24,14 +24,6 @@
  * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  */
 
-/*----- Revision history --------------------------------------------------* 
- *
- * $Log: vec.c,v $
- * Revision 1.1  2003/03/07 00:45:35  mdw
- * A multidimensional vector/matrix type which is updateable in place.
- *
- */
-
 /*----- Header files ------------------------------------------------------*/
 
 #include <assert.h>
@@ -375,7 +367,8 @@ static int vec_new(ClientData cd, Tcl_Interp *ti,
   Tcl_IncrRefCount(init);
   if ((v = vec_create(ti, ndim, dim, init)) == 0)
     goto fail;
-  Tcl_SetResult(ti, Tcl_GetCommandName(ti, v->c), TCL_STATIC);
+  Tcl_SetResult(ti, (/*unconst */char *)Tcl_GetCommandName(ti, v->c),
+               TCL_STATIC);
   rc = TCL_OK;
 
 fail: