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

Reply via email to