summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompCmdsGR.c16
1 files changed, 1 insertions, 15 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c
index 3a25978..b9c655b 100644
--- a/generic/tclCompCmdsGR.c
+++ b/generic/tclCompCmdsGR.c
@@ -1210,21 +1210,7 @@ TclCompileListCmd(
valueTokenPtr = TokenAfter(valueTokenPtr);
}
if (listObj != NULL) {
-// int len;
-// const char *bytes = Tcl_GetStringFromObj(listObj, &len);
-
-// PushLiteral(envPtr, bytes, len);
- TclEmitPush(TclAddLiteralObj(envPtr, listObj, NULL), envPtr);
-// Tcl_DecrRefCount(listObj);
-// if (len > 0) {
- /*
- * Force list interpretation!
- */
-
-// TclEmitOpcode( INST_DUP, envPtr);
-// TclEmitOpcode( INST_LIST_LENGTH, envPtr);
-// TclEmitOpcode( INST_POP, envPtr);
-// }
+ TclEmitPush(TclAddLiteralObj(envPtr, listObj, NULL), envPtr);
return TCL_OK;
}