From 182c35d5aee98ab2afa27c2e84427206edb9a9ca Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Tue, 18 Mar 2025 18:40:14 +0200 Subject: schasm updates --- atk16_schasm/utils.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'atk16_schasm/utils.scm') diff --git a/atk16_schasm/utils.scm b/atk16_schasm/utils.scm index f5e74e3..06160ab 100644 --- a/atk16_schasm/utils.scm +++ b/atk16_schasm/utils.scm @@ -41,8 +41,8 @@ (unless (<= (length offsets) 1) (error "only one imm or label can be supplied as rhs")) - (define rhs (if (null? regs) ZR (car regs))) - (define offset (if (null? offsets) (imm 0) (car offsets))) + (define rhs (if (null? regs) ZR (car regs))) + (define offset (if (null? offsets) #f (car offsets))) (cons rhs offset)) -- cgit v1.3