On Sat, Mar 07, 2009 at 06:28:29PM -0800, Vasily Chekalkin wrote:
>
> <bacek> std: my $c = &infix:<cmp>; say &$c(5, 42);
> <p6eval> std 25744: OUTPUT«ok 00:03 48m»
> <bacek> rakudo: my $c = &infix:<cmp>; say &$c(5, 42);
> <p6eval> rakudo ed4cd1: OUTPUT«Statement not terminated properly at line
> 1, near ":<cmp>; sa"current instr.: 'parrot;PGE;Util;die' pc 129
> (runtime/parrot/library/PGE/Util.pir:83)»
> * bacek wears masak's hat
This will require some parser changes; in the meantime you can do
the equivalent in PIR directly:
my $c = Q:PIR { %r = find_name 'infix:cmp' };
Pm