From 25e75c04fd7efe85b40297101657ee856eac81c3 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 14 Mar 2018 06:10:50 -0700
Subject: asm: bugfix: correct value of (v x y) operands.

* share/txr/stdlib/asm.tl (parse-compound-operand): Add the
forgotten increment by two to the level number of the v
operand, since (v 0 n) is in the third display level.
---
 share/txr/stdlib/asm.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3