mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix the type tag produced by `SCM_STATIC_PROGRAM'.

Browse source 
* libguile/snarf.h (SCM_STATIC_PROGRAM): Fix typo.
This commit is contained in:
Ludovic Courtès 2010-04-19 00:27:47 +02:00
parent 0a935b2ab5
commit e6bd58af8f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/snarf.h
View file

@ -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)