119 |
SCM |
SCM |
120 |
scm_make_environment (void *type) |
scm_make_environment (void *type) |
121 |
{ |
{ |
122 |
return scm_alloc_cell (scm_tc16_environment, (scm_t_bits) type); |
return scm_cell (scm_tc16_environment, (scm_t_bits) type); |
123 |
} |
} |
124 |
|
|
125 |
|
|
662 |
static SCM |
static SCM |
663 |
core_environments_observe (SCM env, scm_environment_observer proc, SCM data, int weak_p) |
core_environments_observe (SCM env, scm_environment_observer proc, SCM data, int weak_p) |
664 |
{ |
{ |
665 |
SCM observer; |
SCM observer = scm_double_cell (scm_tc16_observer, |
666 |
|
SCM_UNPACK (env), |
667 |
observer = scm_alloc_double_cell (scm_tc16_observer, |
SCM_UNPACK (data), |
668 |
SCM_UNPACK (env), |
(scm_t_bits) proc); |
|
SCM_UNPACK (data), |
|
|
(scm_t_bits) proc); |
|
669 |
|
|
670 |
if (!weak_p) |
if (!weak_p) |
671 |
{ |
{ |