summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2010-04-19 00:27:47 +0200
committerLudovic Courtès <ludo@gnu.org>2010-05-07 13:47:52 +0200
commite6bd58af8fd847dc1e7af2c8d658905ea889edca (patch)
treeccfd81cf4663486a70b714c1c753fa44e5467e54
parent0a935b2ab59a73c802283692c868a8315434839e (diff)
downloadguile-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.h2
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)