[svn:parrot] r8831 - trunk/languages/tcl/lib

[mdiep]

Author: mdiep
Date: Fri Aug  5 20:34:27 2005
New Revision: 8831

Modified:
   trunk/languages/tcl/lib/string_to_list.pir
Log:
Fix parsing of quotes in string->list code.

Modified: trunk/languages/tcl/lib/string_to_list.pir
==============================================================================
--- trunk/languages/tcl/lib/string_to_list.pir  (original)
+++ trunk/languages/tcl/lib/string_to_list.pir  Fri Aug  5 20:34:27 2005
@@ -76,7 +76,7 @@ found_quote:
   
   pos = $I1
   inc pos
-  goto loop
+  goto eat_space
 
 list:
   .local int depth