/[guile]/guile/guile-core/libguile/gsubr.c
ViewVC logotype

Diff of /guile/guile-core/libguile/gsubr.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.47 by mvo, Sat Apr 5 19:10:23 2003 UTC revision 1.48 by dirk, Sun Apr 20 07:19:38 2003 UTC
# Line 87  create_gsubr (int define, const char *na Line 87  create_gsubr (int define, const char *na
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;

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26