* Don't assign to SCM_SUBRF, use new SCM_SET_SUBRF macro instead.

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

diff --git a/libguile/procs.c b/libguile/procs.c
index 0ad0926..6a52187 100644 (file)
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -95,7 +95,7 @@ scm_make_subr_opt (const char *name, int type, SCM (*fcn) (), int set)
   scm_subr_table[entry].properties = SCM_EOL;
   scm_subr_table[entry].documentation = SCM_BOOL_F;
   
-  SCM_SUBRF (z) = fcn;
+  SCM_SET_SUBRF (z, fcn);
   SCM_SET_CELL_TYPE (z, (entry << 8) + type);
   scm_subr_table_size++;