diff options
| -rw-r--r-- | atk16_schasm/lib.scm | 10 |
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) |