diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-13 22:34:36 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-13 22:34:36 -0700 |
| commit | 6bee0ed9ab9893c4df744a0d710c06f6bc12551f (patch) | |
| tree | 6b6c6d4633c0ff8fe33d90fd165545da0e87f020 | |
| parent | c51e6768a7082fffbd91d6c3c9030ce9485cb449 (diff) | |
| download | txr-6bee0ed9ab9893c4df744a0d710c06f6bc12551f.tar.gz txr-6bee0ed9ab9893c4df744a0d710c06f6bc12551f.tar.bz2 txr-6bee0ed9ab9893c4df744a0d710c06f6bc12551f.zip | |
asm: no package qualifiers in textual disassembly.
* share/txr/stdlib/asm.tl (assembler dis-listing): Use
tostringp when converting the opcode and arguments to text, so
package prefixes won't be shown when the current package isn't
sys.
| -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) |