correct shl stub_gen

2023-02-03 22:27:08 -07:00
parent 165a55dac6
commit 2c2a9fe01e
1 changed files with 1 additions and 1 deletions
--- 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)
    };