(define-module (language bytecode spec)
#:use-module (system base language)
- #:use-module (language objcode spec)
#:use-module (system vm objcode)
#:export (bytecode))
(define (compile-objcode x e opts)
(values (bytecode->objcode x) e))
+(define (decompile-objcode x e opts)
+ (values (objcode->bytecode x) e))
+
(define-language bytecode
#:title "Guile Bytecode Vectors"
#:version "0.3"
#:reader read
#:printer write
- #:compilers `((,objcode . ,compile-objcode))
+ #:compilers `((objcode . ,compile-objcode))
+ #:decompilers `((objcode . ,decompile-objcode))
)