diff options
Diffstat (limited to 'libguile/gsubr.c')
-rw-r--r-- | libguile/gsubr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c index 4e061e340..5dd767df7 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -236,10 +236,10 @@ create_subr (int define, const char *name, sname = scm_from_utf8_symbol (name); - ret = scm_words (scm_tc7_rtl_program | (nfree << 16), nfree + 2); flags = SCM_F_PROGRAM_IS_PRIMITIVE; flags |= generic_loc ? SCM_F_PROGRAM_IS_PRIMITIVE_GENERIC : 0; - SCM_SET_CELL_WORD_0 (ret, SCM_CELL_WORD_0 (ret) | flags); + + ret = scm_words (scm_tc7_rtl_program | (nfree << 16) | flags, nfree + 2); SCM_SET_CELL_WORD_1 (ret, get_subr_stub_code (nreq, nopt, rest)); SCM_RTL_PROGRAM_FREE_VARIABLE_SET (ret, 0, scm_from_pointer (fcn, NULL)); SCM_RTL_PROGRAM_FREE_VARIABLE_SET (ret, 1, sname); |