Author: coke Date: Fri Dec 30 09:41:35 2005 New Revision: 10796 Modified: trunk/languages/tcl/lib/commands/string.pir Log: tcl: Note small todo.
Modified: trunk/languages/tcl/lib/commands/string.pir ============================================================================== --- trunk/languages/tcl/lib/commands/string.pir (original) +++ trunk/languages/tcl/lib/commands/string.pir Fri Dec 30 09:41:35 2005 @@ -931,6 +931,7 @@ arg_length: argc = argv if argc == 0 goto bad_args $S4 = shift argv + # XXX switch this to use tcl's integer checker routines. $I1 = is_integer $S4 if $I1 == 0 goto bad_args size = $S4
