diff options
Diffstat (limited to 'module/system')
-rw-r--r-- | module/system/repl/command.scm | 3 | ||||
-rw-r--r-- | module/system/vm/frame.scm | 1 | ||||
-rw-r--r-- | module/system/vm/objcode.scm | 6 |
3 files changed, 4 insertions, 6 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm index 8f72430c8..631957a83 100644 --- a/module/system/repl/command.scm +++ b/module/system/repl/command.scm @@ -497,7 +497,8 @@ Disassemble a compiled procedure." ((bytevector? obj) (disassemble-image (load-image obj))) (else - (format #t "Argument to ,disassemble not a procedure or objcode: ~a~%" + (format #t + "Argument to ,disassemble not a procedure or a bytevector: ~a~%" obj))))) (define-meta-command (disassemble-file repl file) diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm index 8aba837d1..e3b3352d5 100644 --- a/module/system/vm/frame.scm +++ b/module/system/vm/frame.scm @@ -22,7 +22,6 @@ #:use-module (system base pmatch) #:use-module (system vm program) #:use-module (system vm instruction) - #:use-module (system vm objcode) #:export (frame-bindings frame-lookup-binding frame-binding-ref frame-binding-set! diff --git a/module/system/vm/objcode.scm b/module/system/vm/objcode.scm index 4a0e9924a..ba4ba53e7 100644 --- a/module/system/vm/objcode.scm +++ b/module/system/vm/objcode.scm @@ -19,10 +19,8 @@ ;;; Code: (define-module (system vm objcode) - #:export (objcode? objcode-meta - bytecode->objcode objcode->bytecode - load-thunk-from-file load-thunk-from-memory - word-size byte-order + #:export (load-thunk-from-file + load-thunk-from-memory find-mapped-elf-image all-mapped-elf-images)) (load-extension (string-append "libguile-" (effective-version)) |