summaryrefslogtreecommitdiff
path: root/libguile/smob.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/smob.h')
-rw-r--r--libguile/smob.h9
1 files changed, 4 insertions, 5 deletions
diff --git a/libguile/smob.h b/libguile/smob.h
index be87b255e..50de243ce 100644
--- a/libguile/smob.h
+++ b/libguile/smob.h
@@ -72,7 +72,7 @@ typedef struct scm_smob_descriptor
#define SCM_NEWSMOB(z, tc, data) \
do { \
- z = scm_alloc_cell ((tc), (scm_t_bits) (data)); \
+ z = scm_cell ((tc), (scm_t_bits) (data)); \
} while (0)
#define SCM_RETURN_NEWSMOB(tc, data) \
@@ -83,8 +83,7 @@ do { \
#define SCM_NEWSMOB2(z, tc, data1, data2) \
do { \
- z = scm_alloc_double_cell ((tc), (scm_t_bits)(data1), \
- (scm_t_bits)(data2), 0); \
+ z = scm_double_cell ((tc), (scm_t_bits)(data1), (scm_t_bits)(data2), 0); \
} while (0)
#define SCM_RETURN_NEWSMOB2(tc, data1, data2) \
@@ -95,8 +94,8 @@ do { \
#define SCM_NEWSMOB3(z, tc, data1, data2, data3) \
do { \
- z = scm_alloc_double_cell ((tc), (scm_t_bits)(data1), \
- (scm_t_bits)(data2), (scm_t_bits)(data3)); \
+ z = scm_double_cell ((tc), (scm_t_bits)(data1), \
+ (scm_t_bits)(data2), (scm_t_bits)(data3)); \
} while (0)
#define SCM_RETURN_NEWSMOB3(tc, data1, data2, data3) \