87 |
SCM_SET_GSUBR_PROC (cclo, subr); |
SCM_SET_GSUBR_PROC (cclo, subr); |
88 |
SCM_SET_GSUBR_TYPE (cclo, |
SCM_SET_GSUBR_TYPE (cclo, |
89 |
SCM_MAKINUM (SCM_GSUBR_MAKTYPE (req, opt, rst))); |
SCM_MAKINUM (SCM_GSUBR_MAKTYPE (req, opt, rst))); |
|
#ifdef DEBUG_EXTENSIONS |
|
90 |
if (SCM_REC_PROCNAMES_P) |
if (SCM_REC_PROCNAMES_P) |
91 |
scm_set_procedure_property_x (cclo, scm_sym_name, sym); |
scm_set_procedure_property_x (cclo, scm_sym_name, sym); |
|
#endif |
|
92 |
if (define) |
if (define) |
93 |
scm_define (sym, cclo); |
scm_define (sym, cclo); |
94 |
return cclo; |
return cclo; |