X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/75c242a256c273ab0690397df4277d44f01946e6..52fd9639fdeee068434342e1bdb8693b05ecac5c:/libguile/gsubr.c

diff --git a/libguile/gsubr.c b/libguile/gsubr.c
index f0c622290..de4bff69f 100644
--- a/libguile/gsubr.c
+++ b/libguile/gsubr.c
@@ -794,13 +794,13 @@ create_gsubr (int define, const char *name,
   sname = scm_from_locale_symbol (name);
   table = scm_c_make_vector (generic_loc ? 3 : 2, SCM_UNDEFINED);
   SCM_SIMPLE_VECTOR_SET (table, 0,
-                         scm_c_from_foreign (SCM_FOREIGN_TYPE_POINTER,
-                                             &fcn, 0, NULL));
+                         scm_take_foreign_pointer (SCM_FOREIGN_TYPE_VOID,
+                                                   fcn, 0, NULL));
   SCM_SIMPLE_VECTOR_SET (table, 1, sname);
   if (generic_loc)
     SCM_SIMPLE_VECTOR_SET (table, 2,
-                           scm_c_from_foreign (SCM_FOREIGN_TYPE_POINTER,
-                                               &generic_loc, 0, NULL));
+                           scm_take_foreign_pointer (SCM_FOREIGN_TYPE_VOID,
+                                                     generic_loc, 0, NULL));
 
   /* make program */
   ret = scm_make_program (scm_subr_objcode_trampoline (nreq, nopt, rest),