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 | a97e0a1abfce633fc46f86c3e804a9eebb8ed7f0 (patch) | |
| tree | 6b6c6d4633c0ff8fe33d90fd165545da0e87f020 /share | |
| parent | 971833447e77fdd57ae204e8bdad9f72736999f2 (diff) | |
| download | txr-a97e0a1abfce633fc46f86c3e804a9eebb8ed7f0.tar.gz txr-a97e0a1abfce633fc46f86c3e804a9eebb8ed7f0.tar.bz2 txr-a97e0a1abfce633fc46f86c3e804a9eebb8ed7f0.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.
Diffstat (limited to 'share')
| -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) |