Fix

raviqqe · Feb 24, 2025 · b0bb372 · b0bb372
1 parent 3a43981
commit b0bb372
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cmd/decode/src/main.scm b/cmd/decode/src/main.scm
@@ -65,13 +65,13 @@
     ((eof-object? byte))
     (cond
       ((even? byte)
-        (stack-push! (decode-number (decode-integer-tail byte number-base)) stack))
+        (stack-push! stack (decode-number (decode-integer-tail byte number-base))))
 
       ((even? (quotient byte 2))
         (let* ((d (stack-pop! stack))
                (a (stack-pop! stack))
                (tag (decode-integer-tail (quotient byte 4) tag-base)))
-          (stack-push! (rib a d tag) stack)))
+          (stack-push! stack (rib a d tag))))
 
       (else
         (let* ((head (quotient byte 4))