diff options
| -rw-r--r-- | share/txr/stdlib/asm.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index ce092c1e..be0b84bb 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -219,7 +219,7 @@ (when (and (<= 0 arg1 253) (<= 0 arg2 255)) (caseq sym - (v (+ (* arg1 256) arg2))))))) + (v (+ (* (ssucc arg1) 256) arg2))))))) (defun parse-operand (str) (cond |