Author: mdiep Date: Fri Aug 5 20:05:55 2005 New Revision: 8830 Modified: trunk/languages/tcl/lib/commands/linsert.pir Log: Convert strings to lists in linsert
Modified: trunk/languages/tcl/lib/commands/linsert.pir ============================================================================== --- trunk/languages/tcl/lib/commands/linsert.pir (original) +++ trunk/languages/tcl/lib/commands/linsert.pir Fri Aug 5 20:05:55 2005 @@ -11,8 +11,12 @@ # XXX need error handling. + .local pmc __list + __list = find_global "_Tcl", "__list" + .local pmc the_list the_list = shift argv + the_list = __list(the_list) .local pmc position position = shift argv
