diff options
Diffstat (limited to 'module/system/vm/disassembler.scm')
-rw-r--r-- | module/system/vm/disassembler.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm index 27b90c3d6..cfc8a15f3 100644 --- a/module/system/vm/disassembler.scm +++ b/module/system/vm/disassembler.scm @@ -350,7 +350,7 @@ address of that offset." (define* (disassemble-program program #:optional (port (current-output-port))) (cond - ((find-program-debug-info (rtl-program-code program)) + ((find-program-debug-info (program-code program)) => (lambda (pdi) (format port "Disassembly of ~S at #x~X:\n\n" program (program-debug-info-addr pdi)) @@ -417,7 +417,7 @@ address of that offset." (define* (fold-program-code proc seed program-or-addr #:key raw?) (cond ((find-program-debug-info (if (program? program-or-addr) - (rtl-program-code program-or-addr) + (program-code program-or-addr) program-or-addr)) => (lambda (pdi) (fold-code-range proc seed @@ -452,5 +452,5 @@ address of that offset." (define (disassemble-file file) (let* ((thunk (load-thunk-from-file file)) - (elf (find-mapped-elf-image (rtl-program-code thunk)))) + (elf (find-mapped-elf-image (program-code thunk)))) (disassemble-image elf))) |