diff options
author | Ludovic Courtès <ludo@gnu.org> | 2011-01-30 22:05:21 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2011-01-30 23:29:30 +0100 |
commit | 690a0112e55823aa8b862daeddcf44cea97e7917 (patch) | |
tree | c6e932883a187dde5aab178f6b523a61ca07b085 /libguile/foreign.c | |
parent | 1f4f7674bc352be9c5bdce0e0fb346345b04fa81 (diff) | |
download | guile-690a0112e55823aa8b862daeddcf44cea97e7917.tar.gz |
Remove the "has finalizer?" bit from pointer objects.
* libguile/foreign.h (SCM_POINTER_HAS_FINALIZER): Remove.
* libguile/foreign.c (scm_from_pointer): Store nothing more than
`scm_tc7_pointer' in the type slot.
Diffstat (limited to 'libguile/foreign.c')
-rw-r--r-- | libguile/foreign.c | 5 |
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) { |