diff options
Diffstat (limited to 'libguile/vm.c')
-rw-r--r-- | libguile/vm.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index e8f8ddf01..e9d96194c 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -390,7 +390,8 @@ really_make_boot_program (long nargs) bp->metalen = 0; u8vec = scm_c_take_bytevector ((scm_t_int8*)bp, - sizeof (struct scm_objcode) + sizeof (text)); + sizeof (struct scm_objcode) + sizeof (text), + SCM_BOOL_F); ret = scm_make_program (scm_bytecode_to_objcode (u8vec), SCM_BOOL_F, SCM_BOOL_F); SCM_SET_CELL_WORD_0 (ret, SCM_CELL_WORD_0 (ret) | SCM_F_PROGRAM_IS_BOOT); |