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 b9025ed7..ff7dfb87 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -177,7 +177,7 @@ me.(set-pos p) (while (< p l) (let* ((dis me.(dis-one)) - (dis-txt (cat-str [mapcar tostring dis] " ")) + (dis-txt (cat-str [mapcar tostringp dis] " ")) (q me.(cur-pos))) me.(set-pos p) (format t "~,5d: ~,08X ~a\n" (trunc p 4) me.(get-word) dis-txt) |