Skip to content

Instantly share code, notes, and snippets.

@zoffixznet

zoffixznet/diff.diff Secret

Created May 10, 2017 21:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zoffixznet/2d017e9ac1fb50b9b71b82bbafd89e52 to your computer and use it in GitHub Desktop.
Save zoffixznet/2d017e9ac1fb50b9b71b82bbafd89e52 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
diff.diff
diff --git a/src/core/Int.pm b/src/core/Int.pm
index 779cb99..4f6b624 100644
--- a/src/core/Int.pm
+++ b/src/core/Int.pm
@@ -401,9 +401,7 @@ multi sub infix:<+^>(Int:D \a, Int:D \b) {
#}
multi sub infix:«+<»(Int:D \a, Int:D \b --> Int:D) {
- nqp::isbig_I(nqp::decont(b))
- ?? Failure.new(X::NYI::BigInt.new(:op('+<'),:big(b)))
- !! nqp::bitshiftl_I(nqp::decont(a), nqp::unbox_i(b), Int)
+ nqp::bitshiftl_I(nqp::decont(a), nqp::unbox_i(b), Int)
}
#multi sub infix:«+<»(int $a, int $b) { RT#128655
# nqp::bitshiftl_i($a, $b);
cpan@perlbuild4~/CPANPRC/rakudo (nom)$
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment