diff options
-rw-r--r-- | libguile/programs.h | 2 | ||||
-rw-r--r-- | libguile/vm.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/libguile/programs.h b/libguile/programs.h index d52631fbb..c846c1b8c 100644 --- a/libguile/programs.h +++ b/libguile/programs.h @@ -26,7 +26,7 @@ * Programs */ -#define SCM_F_PROGRAM_IS_BOOT (1<<16) +#define SCM_F_PROGRAM_IS_BOOT 0x100 #define SCM_PROGRAM_P(x) (!SCM_IMP (x) && SCM_TYP7(x) == scm_tc7_program) #define SCM_PROGRAM_OBJCODE(x) (SCM_CELL_OBJECT_1 (x)) 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; } |