Merge commit 'cb9d473112ac172a3d328bb029b5b550918d4262' 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 8c35f72..7d9b955 100644 (file)
--- a/module/language/bytecode/spec.scm
+++ b/module/language/bytecode/spec.scm
@@ -27,10 +27,14 @@
 (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))
+  #:decompilers `((objcode . ,decompile-objcode))
   )