1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00

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.
This commit is contained in:
Andy Wingo 2013-11-08 17:42:54 +01:00
parent 741073719e
commit 84680d2382
4 changed files with 5 additions and 7 deletions

View file

@ -158,7 +158,7 @@ Compile each Guile source file FILE into a Guile object.
for a list of available warnings
-f, --from=LANG specify a source language other than `scheme'
-t, --to=LANG specify a target language other than `objcode'
-t, --to=LANG specify a target language other than `rtl'
-T, --target=TRIPLET produce bytecode for host TRIPLET
Note that auto-compilation will be turned off.

View file

@ -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)

View file

@ -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!

View file

@ -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))