Bug in error.

dvanhorn · dvanhorn · commit 4f03ae3cf723 · 2021-12-19T17:07:47.000-05:00
diff --git a/langs/outlaw/compile-ops.rkt b/langs/outlaw/compile-ops.rkt
@@ -132,6 +132,7 @@
           (unpad-stack))]
     ['error
      (seq (assert-string rax)
+          (Xor rax type-str)
           (Mov rdi rax)
           (pad-stack)
           (Call 'raise_error))]
