Use "pointer" instead of "foreign" when dealing with wrapped pointers.

[bpt/guile.git] / libguile / gsubr.h

diff --git a/libguile/gsubr.h b/libguile/gsubr.h
index 6907252..faa4bb0 100644 (file)
--- a/libguile/gsubr.h
+++ b/libguile/gsubr.h
@@ -46,13 +46,13 @@ SCM_API SCM scm_subr_objcode_trampoline (unsigned int nreq,
 
 #define SCM_SUBRF(x)                                                   \
   ((SCM (*) (void))                                                    \
-   SCM_FOREIGN_POINTER (SCM_SIMPLE_VECTOR_REF (SCM_PROGRAM_OBJTABLE (x), 0)))
+   SCM_POINTER_VALUE (SCM_SIMPLE_VECTOR_REF (SCM_PROGRAM_OBJTABLE (x), 0)))
 
 #define SCM_SUBR_NAME(x) (SCM_SIMPLE_VECTOR_REF (SCM_PROGRAM_OBJTABLE (x), 1))
 
 #define SCM_SUBR_GENERIC(x)                                            \
   ((SCM *)                                                             \
-   SCM_FOREIGN_POINTER (SCM_SIMPLE_VECTOR_REF (SCM_PROGRAM_OBJTABLE (x), 2)))
+   SCM_POINTER_VALUE (SCM_SIMPLE_VECTOR_REF (SCM_PROGRAM_OBJTABLE (x), 2)))
 
 #define SCM_SET_SUBR_GENERIC(x, g) \
   (*SCM_SUBR_GENERIC (x) = (g))