From b0bb372599bda1ee96df3058f952f3f9782ea2ce Mon Sep 17 00:00:00 2001 From: Yota Toyama Date: Mon, 24 Feb 2025 11:57:21 -0800 Subject: [PATCH] Fix --- cmd/decode/src/main.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cmd/decode/src/main.scm b/cmd/decode/src/main.scm index f9df4a9ba..6ddc6f9fa 100644 --- 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))