fix program disassembly for meta-in-a-thunk

* module/system/vm/disasm.scm (disassemble-program): Fix for recent
  meta-in-a-thunk change.

diff --git a/module/system/vm/disasm.scm b/module/system/vm/disasm.scm
index 20a8382..a16d6d1 100644 (file)
--- a/module/system/vm/disasm.scm
+++ b/module/system/vm/disasm.scm
@@ -60,7 +60,7 @@
     (if (pair? exts)
        (disassemble-externals exts))
     (if meta
-       (disassemble-meta meta))
+       (disassemble-meta (meta)))
     ;; Disassemble other bytecode in it
     (for-each
      (lambda (x)