Fix bitwise shift functions type error in the second argument

diff --git a/src/machine/arithmetic_ops.rs b/src/machine/arithmetic_ops.rs
index dc06fd5a901ae7f4782de30dec8a884050621e7b..4e3f832af794771e89736ebe027a0182940211e3 100644 (file)
--- a/src/machine/arithmetic_ops.rs
+++ b/src/machine/arithmetic_ops.rs
@@ -676,6 +676,10 @@ impl MachineState {
                 MachineError::type_error(self.heap.h(), ValidType::Integer, n2),
                 stub,
             )),
+            (Number::Fixnum(_), n2) => Err(self.error_form(
+                MachineError::type_error(self.heap.h(), ValidType::Integer, n2),
+                stub,
+            )),
             (n1, _) => Err(self.error_form(
                 MachineError::type_error(self.heap.h(), ValidType::Integer, n1),
                 stub,
@@ -716,6 +720,10 @@ impl MachineState {
                 MachineError::type_error(self.heap.h(), ValidType::Integer, n2),
                 stub,
             )),
+            (Number::Fixnum(_), n2) => Err(self.error_form(
+                MachineError::type_error(self.heap.h(), ValidType::Integer, n2),
+                stub,
+            )),
             (n1, _) => Err(self.error_form(
                 MachineError::type_error(self.heap.h(), ValidType::Integer, n1),
                 stub,