diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-04-19 00:27:47 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-05-07 13:47:52 +0200 |
commit | e6bd58af8fd847dc1e7af2c8d658905ea889edca (patch) | |
tree | ccfd81cf4663486a70b714c1c753fa44e5467e54 | |
parent | 0a935b2ab59a73c802283692c868a8315434839e (diff) | |
download | guile-e6bd58af8fd847dc1e7af2c8d658905ea889edca.tar.gz |
Fix the type tag produced by `SCM_STATIC_PROGRAM'.
* libguile/snarf.h (SCM_STATIC_PROGRAM): Fix typo.
-rw-r--r-- | libguile/snarf.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/snarf.h b/libguile/snarf.h index 98f660115..360cb9483 100644 --- 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) |