mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

scm_i_make_rtl_program in BUILDING_LIBGUILE

Browse source 
* libguile/programs.h (scm_i_make_rtl_program): Enclose in a
  BUILDING_LIBGUILE guard.
This commit is contained in:
Andy Wingo 2013-11-19 18:55:03 +01:00
parent d798a895cc
commit e326baac0b
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/programs.h
View file

@ -33,11 +33,13 @@
#define SCM_PROGRAM_NUM_FREE_VARIABLES(x) (SCM_CELL_WORD_0 (x) >> 16) #define SCM_PROGRAM_NUM_FREE_VARIABLES(x) (SCM_CELL_WORD_0 (x) >> 16)
#define SCM_VALIDATE_PROGRAM(p,x) SCM_MAKE_VALIDATE (p, x, PROGRAM_P) #define SCM_VALIDATE_PROGRAM(p,x) SCM_MAKE_VALIDATE (p, x, PROGRAM_P)
#ifdef BUILDING_LIBGUILE
static inline SCM static inline SCM
scm_i_make_rtl_program (const scm_t_uint32 *code) scm_i_make_rtl_program (const scm_t_uint32 *code)
{ {
return scm_cell (scm_tc7_program, (scm_t_bits)code); return scm_cell (scm_tc7_program, (scm_t_bits)code);
} }
#endif
SCM_INTERNAL SCM scm_make_rtl_program (SCM bytevector, SCM byte_offset, SCM free_variables); SCM_INTERNAL SCM scm_make_rtl_program (SCM bytevector, SCM byte_offset, SCM free_variables);
SCM_INTERNAL SCM scm_rtl_program_p (SCM obj); SCM_INTERNAL SCM scm_rtl_program_p (SCM obj);