From: Mark Thom <markjordanthom@gmail.com>
Date: Sat, 4 Feb 2023 05:27:08 +0000 (-0700)
Subject: correct shl stub_gen
X-Git-Tag: v0.9.2~193
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=2c2a9fe01e9946707b87257d3d8e04cc7775c16e;p=scryer-prolog.git

correct shl stub_gen
---

diff --git a/src/machine/arithmetic_ops.rs b/src/machine/arithmetic_ops.rs
index 2ad43e73..774b848f 100644
--- a/src/machine/arithmetic_ops.rs
+++ b/src/machine/arithmetic_ops.rs
@@ -671,7 +671,7 @@ pub(crate) fn shr(n1: Number, n2: Number, arena: &mut Arena) -> Result<Number, M
 
 pub(crate) fn shl(n1: Number, n2: Number, arena: &mut Arena) -> Result<Number, MachineStubGen> {
     let stub_gen = || {
-        let shl_atom = atom!(">>");
+        let shl_atom = atom!("<<");
         functor_stub(shl_atom, 2)
     };