diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-08 17:42:54 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-08 17:42:54 +0100 |
commit | 84680d238299c3b2c8be42b16a8be0ff6e02ba5c (patch) | |
tree | 69cf6033285f36721f7ce273f7544c091d224880 /module/system/repl | |
parent | 741073719e657c8d7103287e942a72a6aedcce88 (diff) | |
download | guile-84680d238299c3b2c8be42b16a8be0ff6e02ba5c.tar.gz |
Miscellaneous fixups related to objcode removal.
* module/scripts/compile.scm: Fix --help message.
* module/system/repl/command.scm (disassemble): Fix error message.
* module/system/vm/frame.scm: Remove objcode import.
* module/system/vm/objcode.scm: Remove some exports related to the
objcode type.
Diffstat (limited to 'module/system/repl')
-rw-r--r-- | module/system/repl/command.scm | 3 |
1 files changed, 2 insertions, 1 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) |