cvsuser 04/11/27 16:45:54
Modified: languages/tcl/lib/commands array.imc
Log:
ask if a variable 'does' hash instead of forcing it to be a TclArray
Revision Changes Path
1.9 +2 -2 parrot/languages/tcl/lib/commands/array.imc
Index: array.imc
===================================================================
RCS file: /cvs/public/parrot/languages/tcl/lib/commands/array.imc,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- array.imc 21 Nov 2004 21:11:09 -0000 1.8
+++ array.imc 28 Nov 2004 00:45:54 -0000 1.9
@@ -32,8 +32,8 @@
clear_eh
isnull the_array, array_no
- typeof $I0, the_array
- if $I0 != TclArray goto array_no
+ $I99 = does the_array, "hash"
+ if $I99==0 goto array_no
is_array = 1
goto subcommand
