From a5c6228c324e5847f815950e3db7d1bfca3e1807 Mon Sep 17 00:00:00 2001 From: Yota Toyama Date: Mon, 24 Feb 2025 11:31:13 -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 264ea433d..ba8cbc617 100644 --- a/cmd/decode/src/main.scm +++ b/cmd/decode/src/main.scm @@ -57,7 +57,7 @@ (e (- (modulo (quotient integer 2) 2048) 1023))) (* m (expt 2 e)))))) -(define (decode-ribs data) +(define (decode-ribs) (define dictionary (make-stack '())) (define stack (make-stack '())) @@ -84,4 +84,4 @@ (stack-pop! dictionary)) (stack-push! stack value))))))) -(define codes (decode-ribs #f)) +(define codes (decode-ribs))