Merge commit 'ad5f5ada1d50ecdab634d60ffe3a13b9193156aa' into vm-check

[bpt/guile.git] / module / language / bytecode / spec.scm

diff --git a/module/language/bytecode/spec.scm b/module/language/bytecode/spec.scm
index 0fc3896..7d9b955 100644 (file)
--- a/module/language/bytecode/spec.scm
+++ b/module/language/bytecode/spec.scm
@@ -21,17 +21,20 @@
 
 (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))
   )