From 7ef85d38d0ae42029352cf0bc4f754bcf3a724b0 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 11 Apr 2017 21:46:43 -0700 Subject: [PATCH] Fix compilation issue. --- src/runtime/host-adapter.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/runtime/host-adapter.scm b/src/runtime/host-adapter.scm index 61b175784..a27224d75 100644 --- 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 -- 2.25.1