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 14f0e402..9f28e3b1 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -709,7 +709,7 @@ (unless (minusp fix) (add (operand-to-sym y)))))))))))) -(defun disassemble-c-d (code data funv *stdout*) +(defun disassemble-cdf (code data funv *stdout*) (let ((asm (new assembler buf code))) (put-line "data:") (mapdo (do format t " d~,02X: ~s\n" @1 @2) (range 0) data) @@ -722,7 +722,7 @@ (defun usr:disassemble (obj : (stream *stdout*)) (typecase obj - (vm-desc (disassemble-c-d (vm-desc-bytecode obj) + (vm-desc (disassemble-cdf (vm-desc-bytecode obj) (vm-desc-datavec obj) (vm-desc-funvec obj) stream)) |