[array set] returns a blank string

git-svn-id: https://svn.parrot.org/parrot/trunk@8465 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
fernandobrito · Jun 27, 2005 · 0ec0a42 · 0ec0a42
1 parent 761fc60
commit 0ec0a42
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/languages/tcl/lib/commands/array.imc b/languages/tcl/lib/commands/array.imc
@@ -139,7 +139,6 @@ set_loop:
   $P0 = find_global "_Tcl", "call_level"
   call_level = $P0
 
-  retval = the_array
   if call_level goto save_lex
     store_global "Tcl", array_name, the_array
     goto done

diff --git a/languages/tcl/t/cmd_array.t b/languages/tcl/t/cmd_array.t
@@ -2,7 +2,7 @@
 
 use strict;
 use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 12;
+use Parrot::Test tests => 13;
 use vars qw($TODO);
 
 language_output_is("tcl",<<'TCL',<<OUT,"array exists yes");
@@ -99,3 +99,9 @@ language_output_is("tcl",<<'TCL',<<OUT,"array set uneven");
 TCL
 list must have an even number of elements
 OUT
+
+language_output_is("tcl",<<'TCL',<<'OUT',"array set return value");
+  puts [array set a [list a b]]
+TCL
+
+OUT