summaryrefslogtreecommitdiff
path: root/libguile/foreign.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/foreign.c')
-rw-r--r--libguile/foreign.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/libguile/foreign.c b/libguile/foreign.c
index 47579af0b..2402ad1f6 100644
--- a/libguile/foreign.c
+++ b/libguile/foreign.c
@@ -133,10 +133,7 @@ scm_from_pointer (void *ptr, scm_t_pointer_finalizer finalizer)
ret = null_pointer;
else
{
- scm_t_bits type;
-
- type = scm_tc7_pointer | (finalizer ? (1 << 16UL) : 0UL);
- ret = scm_cell (type, (scm_t_bits) ptr);
+ ret = scm_cell (scm_tc7_pointer, (scm_t_bits) ptr);
if (finalizer)
{