mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

(scm_c_make_subr, scm_c_define_subr,

Browse source 
scm_c_make_subr_with_generic, scm_c_define_subr_with_generic): New
functions.  They replace scm_make_subr, scm_make_subr_opt and
scm_make_subr_with_generic.  The `make' variants only create the
subr object, while the `define' variants also put it into the
current module.  Changed all callers.
(scm_make_subr, scm_make_subr_opt, scm_make_subr_with_generic):
Deprecated.
This commit is contained in:
Marius Vollmer 2001-05-20 00:34:25 +00:00
parent 9d78586faf
commit c88a8162c4
2 changed files with 74 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

25
libguile/procs.h
View file

@ -161,15 +161,12 @@ extern int scm_subr_table_room;
extern void scm_mark_subr_table (void);
extern void scm_free_subr_entry (SCM subr);
extern SCM scm_make_subr (const char *name, int type, SCM (*fcn) ());
extern SCM scm_make_subr_with_generic (const char *name,
int type,
SCM (*fcn) (),
SCM *gf);
extern SCM scm_make_subr_opt (const char *name,
int type,
SCM (*fcn) (),
int set);
extern SCM scm_c_make_subr (const char *name, int type, SCM (*fcn)());
extern SCM scm_c_make_subr_with_generic (const char *name, int type,
SCM (*fcn)(), SCM *gf);
extern SCM scm_c_define_subr (const char *name, int type, SCM (*fcn)());
extern SCM scm_c_define_subr_with_generic (const char *name, int type,
SCM (*fcn)(), SCM *gf);
extern SCM scm_makcclo (SCM proc, long len);
extern SCM scm_procedure_p (SCM obj);
extern SCM scm_closure_p (SCM obj);
@ -193,6 +190,16 @@ extern SCM scm_make_cclo (SCM proc, SCM len);
#define SCM_SUBR_DOC(x) SCM_BOOL_F
extern SCM scm_make_subr (const char *name, int type, SCM (*fcn) ());
extern SCM scm_make_subr_with_generic (const char *name,
int type,
SCM (*fcn) (),
SCM *gf);
extern SCM scm_make_subr_opt (const char *name,
int type,
SCM (*fcn) (),
int set);
#endif /* SCM_DEBUG_DEPRECATED == 0 */
#endif /* SCM_PROCS_H */