correct shl stub_gen

diff --git a/src/machine/arithmetic_ops.rs b/src/machine/arithmetic_ops.rs
index 2ad43e733afde86ebd5c5e135d77cd9be3dd6212..774b848f0730dce7186d8905ffba78c2f53de90e 100644 (file)
--- 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)
     };