Skip to content
Permalink
Browse files

Add shortcut for ObjAt eqv ObjAt

This was one of the cases that broke R#2449.  By shortcutting it, it
is faster, without any allocations and no longer in the way of a better
solution to R#2449;
  • Loading branch information...
lizmat committed Nov 1, 2018
1 parent fb9a045 commit 5120d3d20613696c9978ee670845b9e54aa60a2b
Showing with 7 additions and 0 deletions.
  1. +7 −0 src/core/ObjAt.pm6
@@ -29,4 +29,11 @@ my class ObjAt { # declared in BOOTSTRAP
}
}

multi sub infix:<eqv>(ObjAt:D $a, ObjAt:D $b) {
nqp::hllbool(
nqp::eqaddr($a.WHAT,$b.WHAT)
&& nqp::iseq_s(nqp::unbox_s($a),nqp::unbox_s($b))
)
}

# vim: ft=perl6 expandtab sw=4

0 comments on commit 5120d3d

Please sign in to comment.
You can’t perform that action at this time.