diff options
Diffstat (limited to 'libguile/foreign.c')
-rw-r--r-- | libguile/foreign.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/foreign.c b/libguile/foreign.c index 62ebb03ac..783411897 100644 --- a/libguile/foreign.c +++ b/libguile/foreign.c @@ -195,7 +195,7 @@ SCM_DEFINE (scm_scm_to_pointer, "scm->pointer", 1, 0, 0, SCM ret; ret = scm_from_pointer ((void*) SCM_UNPACK (scm), NULL); - if (SCM_NIMP (ret)) + if (SCM_HEAP_OBJECT_P (ret)) register_weak_reference (ret, scm); return ret; |