mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

Tiny updates in `environments.c'.

Browse source 
* libguile/environments.c (scm_make_environment): Use
  `SCM_RETURN_NEWSMOB' instead of `scm_cell'.
  (core_environments_observe): Use `SCM_NEWSMOB3' instead of
  `scm_double_cell'.

git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-17
This commit is contained in:
Ludovic Courtes 2006-05-14 18:43:42 +00:00 • committed by Ludovic Courtès
parent 741e83fcbf
commit 59cac9e3d8
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/environments.c
View file

@ -96,7 +96,7 @@ scm_error_environment_immutable_location (const char *func, SCM env, SCM symbol)
SCM
scm_make_environment (void *type)
{
return scm_cell (scm_tc16_environment, (scm_t_bits) type);
SCM_RETURN_NEWSMOB (scm_tc16_environment, type);
}
@ -645,10 +645,12 @@ struct core_environments_base {
static SCM
core_environments_observe (SCM env, scm_environment_observer proc, SCM data, int weak_p)
{
SCM observer = scm_double_cell (scm_tc16_observer,
SCM_UNPACK (env),
SCM_UNPACK (data),
(scm_t_bits) proc);
SCM observer;
SCM_NEWSMOB3 (observer, scm_tc16_observer,
SCM_UNPACK (env),
SCM_UNPACK (data),
(scm_t_bits) proc);
if (!weak_p)
{