From 9affb78498eefde2e6ed291c853d16a3c5fe5977 Mon Sep 17 00:00:00 2001 From: Solomon Foster Date: Fri, 19 Mar 2010 08:07:52 -0400 Subject: [PATCH] Better internal op lookup for Xop and Zop. --- src/Perl6/Actions.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm index 8186a2104bb..7ad4cbacbf0 100644 --- a/src/Perl6/Actions.pm +++ b/src/Perl6/Actions.pm @@ -1940,11 +1940,13 @@ method infixish($/) { else { if $metaop eq 'X' { make PAST::Op.new( :name("&crosswith"), :pasttype('call'), - PAST::Var.new( :name($base_opsub), :scope('package') ) ); + PAST::Op.new( :pirop('find_sub_not_null__Ps'), + $base_opsub ) ); } if $metaop eq 'Z' { make PAST::Op.new( :name("&zipwith"), :pasttype('call'), - PAST::Var.new( :name($base_opsub), :scope('package') ) ); + PAST::Op.new( :pirop('find_sub_not_null__Ps'), + $base_opsub ) ); } } }