Author: coke Date: Wed Nov 16 06:11:50 2005 New Revision: 10021 Modified: trunk/languages/tcl/lib/commands/array.pir Log: remove uneeded extra 'escape'ing.
Modified: trunk/languages/tcl/lib/commands/array.pir ============================================================================== --- trunk/languages/tcl/lib/commands/array.pir (original) +++ trunk/languages/tcl/lib/commands/array.pir Wed Nov 16 06:11:50 2005 @@ -214,7 +214,6 @@ no_args: globber = find_global "PGE", "glob" .local pmc rule - match_str = escape match_str # escape unicode rule = globber(match_str) iter = new .Iterator, the_array @@ -228,7 +227,6 @@ no_args: push_loop: unless iter goto push_end str = shift iter - str = escape str # escape unicode # check for match $P2 = rule(str)
