diff options
| -rw-r--r-- | share/txr/stdlib/asm.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index 06a6b258..ffef617c 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -278,8 +278,8 @@ (caseql lv (0 (if (zerop ix) nil - (intern (fmt "t~,03X" ix)))) - (1 (intern (fmt "d~,03X" ix))) + (intern (fmt "t~s" ix)))) + (1 (intern (fmt "d~s" ix))) (t (intern (fmt "v~,02X~,03X" (ppred lv) ix)))))) (defun operand-to-exp (val) |