summaryrefslogtreecommitdiff
path: root/module/system/vm/frame.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/vm/frame.scm')
-rw-r--r--module/system/vm/frame.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm
index 85a223e98..6c8adf80c 100644
--- a/module/system/vm/frame.scm
+++ b/module/system/vm/frame.scm
@@ -52,8 +52,9 @@
(define vm-frame-number (make-object-property))
(define vm-frame-address (make-object-property))
+;; FIXME: the header.
(define (bootstrap-frame? frame)
- (let ((code (program-bytecode (frame-program frame))))
+ (let ((code (objcode->u8vector (program-objcode (frame-program frame)))))
(and (= (uniform-vector-length code) 6)
(= (uniform-vector-ref code 5)
(instruction->opcode 'halt)))))