summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/foreign.h4
-rw-r--r--libguile/snarf.h3
2 files changed, 4 insertions, 3 deletions
diff --git a/libguile/foreign.h b/libguile/foreign.h
index 3e0312b51..b78f29d5b 100644
--- a/libguile/foreign.h
+++ b/libguile/foreign.h
@@ -21,6 +21,7 @@
#include "libguile/__scm.h"
#include "libguile/gc.h"
+#include "libguile/snarf.h"
/* A "foreign pointer" is a wrapped C pointer. It is represented by a
cell whose second word is a pointer. The first word has the
@@ -55,6 +56,9 @@ typedef void (*scm_t_pointer_finalizer) (void *);
#define SCM_POINTER_VALUE(x) \
((void *) SCM_CELL_WORD_1 (x))
+#define SCM_IMMUTABLE_POINTER(c_name, ptr) \
+ SCM_IMMUTABLE_CELL (c_name, scm_tc7_pointer, ptr)
+
SCM_API void *scm_to_pointer (SCM pointer);
SCM_API SCM scm_from_pointer (void *, scm_t_pointer_finalizer);
diff --git a/libguile/snarf.h b/libguile/snarf.h
index e20ac6488..3ef17c12e 100644
--- a/libguile/snarf.h
+++ b/libguile/snarf.h
@@ -326,9 +326,6 @@ SCM_SNARF_INIT(scm_set_smob_apply((tag), (c_name), (req), (opt), (rest));)
(scm_t_bits) 0, \
(scm_t_bits) (sizeof (contents) - 1))
-#define SCM_IMMUTABLE_POINTER(c_name, ptr) \
- SCM_IMMUTABLE_CELL (c_name, scm_tc7_pointer, ptr)
-
#endif /* SCM_SUPPORT_STATIC_ALLOCATION */