Merge commit 'feccd2d3100fd2964d4c2df58ab3da7ce4949a66' into vm-check

[bpt/guile.git] / libguile / procs.c

diff --git a/libguile/procs.c b/libguile/procs.c
index 74cb86c..fd7f3aa 100644 (file)
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -102,7 +102,7 @@ scm_c_make_subr_with_generic (const char *name,
                              long type, SCM (*fcn) (), SCM *gf)
 {
   SCM subr = scm_c_make_subr (name, type, fcn);
-  SCM_SUBR_GENERIC (subr) = gf;
+  SCM_SET_SUBR_GENERIC_LOC (subr, gf);
   return subr;
 }