diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-13 09:45:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-13 09:45:57 (GMT) |
| commit | 9cc68bccbf2916d0295cdfcb5db818c22c0da154 (patch) | |
| tree | f139c8175f4a5b8428a0ae29570be55f28d47480 /generic/tclIOGT.c | |
| parent | 26619872a685f373c6fa06066eb03c5da5951bfa (diff) | |
| download | tcl-9cc68bccbf2916d0295cdfcb5db818c22c0da154.zip tcl-9cc68bccbf2916d0295cdfcb5db818c22c0da154.tar.gz tcl-9cc68bccbf2916d0295cdfcb5db818c22c0da154.tar.bz2 | |
Restore TclListObjLength()/TclListObjGetElements() macro's, as they were in 8.6
Diffstat (limited to 'generic/tclIOGT.c')
| -rw-r--r-- | generic/tclIOGT.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIOGT.c b/generic/tclIOGT.c index 93442a1..4d5c0b3 100644 --- a/generic/tclIOGT.c +++ b/generic/tclIOGT.c @@ -274,7 +274,7 @@ TclChannelTransform( return TCL_ERROR; } - if (TCL_OK != TclListObjLengthM(interp, cmdObjPtr, &objc)) { + if (TCL_OK != TclListObjLength(interp, cmdObjPtr, &objc)) { Tcl_SetObjResult(interp, Tcl_NewStringObj("-command value is not a list", -1)); return TCL_ERROR; |