Fix bug in imm constructors

1 files changed, 4 insertions, 6 deletions

diff --git a/atk16_schasm/lib.scm b/atk16_schasm/lib.scm
index b01aef2..af4c756 100644
--- a/atk16_schasm/lib.scm
+++ b/atk16_schasm/lib.scm
@@ -74,27 +74,25 @@
   (unless (and (<  n (expt 2 15))
 	       (>= n (- (expt 2 15))))
     (error "n does not fit in bounds" n))
-  (let* ((m (modulo n (expt 2 16))))
-    `(imm ,m)))
+  `(imm ,(modulo n (expt 2 16))))
 
 (define (u16 n)
   (unless (and (<  n (expt 2 16))
 	       (>= n 0))
     (error "n does not fit in bounds" n))
-  `(imm ,m))
+  `(imm ,n))
 
 (define (i8 n)
   (unless (and (<  n (expt 2 7))
 	       (>= n (- (expt 2 7))))
     (error "n does not fit in bounds" n))
-  (let* ((m (modulo n (expt 2 16))))
-    `(imm ,m)))
+  `(imm ,(modulo n (expt 2 16))))
 
 (define (u8 n)
   (unless (and (<  n (expt 2 8))
 	       (>= n 0))
     (error "n does not fit in bounds" n))
-  `(imm ,m))
+  `(imm ,n))
 
 (define (alu-op n)
   (unless (and (>= n 0)