Fix compilation issue.

diff --git a/src/runtime/host-adapter.scm b/src/runtime/host-adapter.scm
index 61b17578426cfed09b12a1fb35f715a5b7e7c775..a27224d75575b90e25b403867840a1319efab88d 100644 (file)
--- a/src/runtime/host-adapter.scm
+++ b/src/runtime/host-adapter.scm
@@ -53,7 +53,10 @@ USA.
                      ((eq? name 'tagged-object) #x25)
                      ((eq? name 'unicode-string) #x1B)
                      (else #t))
-               (error "MICROCODE-TYPE: Unknown name" name))))
+               (error "MICROCODE-TYPE: Unknown name" name)))
+
+         (define (bytes-per-object)
+           (vector-ref (gc-space-status) 0)))
        (->environment '()))
       ;; Make new CREF's .pkds usable.
       (eval