summaryrefslogtreecommitdiff
path: root/module/system
diff options
context:
space:
mode:
Diffstat (limited to 'module/system')
-rw-r--r--module/system/repl/command.scm3
-rw-r--r--module/system/vm/frame.scm1
-rw-r--r--module/system/vm/objcode.scm6
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))