From: Will Coleda <[EMAIL PROTECTED]>
   Date: Sun, 30 Jul 2006 15:02:29 -0400

   >    languages/tcl/t/tcl_misc.t#27 has a test for this behavior.
   >
   > What's the generated PIR for this?

   To get the pir generated by tcl (at least at the top level - there's  
   a lot of compiling going on throughout the runtime), do:

   ../../parrot tcl.pbc --pir -e 'set a [list a b]; set a b'

This doesn't work for me, even in a freshly-built (though somewhat
hacked) r13655:

        [EMAIL PROTECTED]> ../../parrot tcl.pbc --pir -e 'set a [list a b]; set 
a b'
        too many arguments passed (3) - 2 params expected
        current instr.: 'compile' pc 19796 (languages/tcl/src/compiler.pir:29)
        called from Sub '_main' pc 474 (src/tclsh.pir:185)
        [EMAIL PROTECTED]> 

But I also notice that I can't run "make test" on Tcl because "prove" is
not on my path.  I am using Perl 5.8.1, which is rather old, but not
that old, so maybe this is some quirk of the stock SuSE 9.0
configuration?

                                        -- Bob Rogers

Reply via email to