Fix the type tag produced by `SCM_STATIC_PROGRAM'.

* libguile/snarf.h (SCM_STATIC_PROGRAM): Fix typo.

diff --git a/libguile/snarf.h b/libguile/snarf.h
index 98f6601..360cb94 100644 (file)
--- a/libguile/snarf.h
+++ b/libguile/snarf.h
@@ -378,7 +378,7 @@ SCM_SNARF_INIT(scm_set_smob_apply((tag), (c_name), (req), (opt), (rest));)
 
 #define SCM_STATIC_PROGRAM(c_name, objcode, objtable, freevars)         \
   SCM_STATIC_DOUBLE_CELL (c_name,                                       \
-                          scm_tc7_program | (SCM_F_PROGRAM_IS_PRIMITIVE<<8), \
+                          scm_tc7_program | SCM_F_PROGRAM_IS_PRIMITIVE,        \
                           (scm_t_bits) objcode,                         \
                           (scm_t_bits) objtable,                        \
                           (scm_t_bits) freevars)