chiark / gitweb /
use tcl8.3/tcl.h
[chiark-tcl.git] / base / enum.c
index 8041cd378a5b05f1c486f2f4049700299f91c631..e3fa041b6d621875909bb06c84a0e23011555785 100644 (file)
@@ -8,6 +8,7 @@
 
 static void enum_nt_dup(Tcl_Obj *src, Tcl_Obj *dup) {
   dup->internalRep= src->internalRep;
+  dup->typePtr= src->typePtr;
 }
 
 static void enum_nt_ustr(Tcl_Obj *o) {