summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc.c')
-rw-r--r--libguile/gc.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/gc.c b/libguile/gc.c
index c8709e03b..b1679c743 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -720,8 +720,8 @@ scm_gc_protect_object (SCM obj)
/* This critical section barrier will be replaced by a mutex. */
SCM_REDEFER_INTS;
- handle = scm_hashq_create_handle_x (scm_protects, obj, SCM_MAKINUM (0));
- SCM_SETCDR (handle, scm_sum (SCM_CDR (handle), SCM_MAKINUM (1)));
+ handle = scm_hashq_create_handle_x (scm_protects, obj, SCM_I_MAKINUM (0));
+ SCM_SETCDR (handle, scm_sum (SCM_CDR (handle), SCM_I_MAKINUM (1)));
protected_obj_count ++;
@@ -752,8 +752,8 @@ scm_gc_unprotect_object (SCM obj)
}
else
{
- SCM count = scm_difference (SCM_CDR (handle), SCM_MAKINUM (1));
- if (SCM_EQ_P (count, SCM_MAKINUM (0)))
+ SCM count = scm_difference (SCM_CDR (handle), SCM_I_MAKINUM (1));
+ if (SCM_EQ_P (count, SCM_I_MAKINUM (0)))
scm_hashq_remove_x (scm_protects, obj);
else
SCM_SETCDR (handle, count);
@@ -774,8 +774,8 @@ scm_gc_register_root (SCM *p)
/* This critical section barrier will be replaced by a mutex. */
SCM_REDEFER_INTS;
- handle = scm_hashv_create_handle_x (scm_gc_registered_roots, key, SCM_MAKINUM (0));
- SCM_SETCDR (handle, scm_sum (SCM_CDR (handle), SCM_MAKINUM (1)));
+ handle = scm_hashv_create_handle_x (scm_gc_registered_roots, key, SCM_I_MAKINUM (0));
+ SCM_SETCDR (handle, scm_sum (SCM_CDR (handle), SCM_I_MAKINUM (1)));
SCM_REALLOW_INTS;
}
@@ -798,8 +798,8 @@ scm_gc_unregister_root (SCM *p)
}
else
{
- SCM count = scm_difference (SCM_CDR (handle), SCM_MAKINUM (1));
- if (SCM_EQ_P (count, SCM_MAKINUM (0)))
+ SCM count = scm_difference (SCM_CDR (handle), SCM_I_MAKINUM (1));
+ if (SCM_EQ_P (count, SCM_I_MAKINUM (0)))
scm_hashv_remove_x (scm_gc_registered_roots, key);
else
SCM_SETCDR (handle, count);