diff options
Diffstat (limited to 'libguile/vm.c')
-rw-r--r-- | libguile/vm.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index 4e4a361f6..d41c8cd41 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -203,7 +203,7 @@ really_make_boot_program (long nargs) sizeof (struct scm_objcode) + sizeof (text)); ret = scm_make_program (scm_bytecode_to_objcode (u8vec), SCM_BOOL_F, SCM_BOOL_F); - SCM_SET_SMOB_FLAGS (ret, SCM_F_PROGRAM_IS_BOOT); + SCM_SET_CELL_WORD_0 (ret, SCM_CELL_WORD_0 (ret) | SCM_F_PROGRAM_IS_BOOT); return ret; } |