*** empty log message ***

[bpt/guile.git] / module / system / vm / assemble.scm

diff --git a/module/system/vm/assemble.scm b/module/system/vm/assemble.scm
index 7cd8c1d..1e9e2d6 100644 (file)
--- a/module/system/vm/assemble.scm
+++ b/module/system/vm/assemble.scm
@@ -146,7 +146,7 @@
        (for-each generate-code body)
        (let ((bytes (stack->bytes (reverse! stack) label-alist)))
         (if toplevel
-            (make-dumpcode nlocs nexts bytes)
+            (bytecode->objcode bytes nlocs nexts)
             (let ((objs (map car (reverse! object-alist))))
               (make-bytespec nargs nrest nlocs nexts bytes objs
                              (venv-closure? venv)))))))))