Author: coke Date: Thu Aug 11 13:20:28 2005 New Revision: 8921 Modified: trunk/languages/tcl/lib/commands/lindex.pir Log: tcl: [lindex] wasn't properly throwing an error on bad args.
Modified: trunk/languages/tcl/lib/commands/lindex.pir ============================================================================== --- trunk/languages/tcl/lib/commands/lindex.pir (original) +++ trunk/languages/tcl/lib/commands/lindex.pir Thu Aug 11 13:20:28 2005 @@ -54,9 +54,9 @@ select_loop: goto select_loop bad_args: - return_type = TCL_ERROR - retval = new TclString + retval = new String retval = "wrong # args: should be \"lindex list ?index...?\"" + .return (TCL_ERROR, retval) have_elem: retval = list
