diff options
Diffstat (limited to 'module/system/vm/frame.scm')
-rw-r--r-- | module/system/vm/frame.scm | 3 |
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))))) |