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

* Removed deprecated stuff.

Browse source 
* Some more renamings to SCM_<filename>_H.
This commit is contained in:
Dirk Herrmann 2001-08-31 12:13:50 +00:00
parent b29058ffee
commit dee01b012c
27 changed files with 132 additions and 728 deletions
Download patch file Download diff file Expand all files Collapse all files

36
libguile/procs.c
View file

@ -401,42 +401,6 @@ scm_init_procs ()
#endif
}
#if SCM_DEBUG_DEPRECATED == 0
SCM
scm_make_subr_opt (const char *name, int type, SCM (*fcn) (), int set)
{
scm_c_issue_deprecation_warning
("`scm_make_subr_opt' is deprecated. Use `scm_c_make_subr' or "
"`scm_c_define_subr' instead.");
if (set)
return scm_c_define_subr (name, type, fcn);
else
return scm_c_make_subr (name, type, fcn);
}
SCM
scm_make_subr (const char *name, int type, SCM (*fcn) ())
{
scm_c_issue_deprecation_warning
("`scm_make_subr' is deprecated. Use `scm_c_define_subr' instead.");
return scm_c_define_subr (name, type, fcn);
}
SCM
scm_make_subr_with_generic (const char *name, int type, SCM (*fcn) (), SCM *gf)
{
scm_c_issue_deprecation_warning
("`scm_make_subr_with_generic' is deprecated. Use "
"`scm_c_define_subr_with_generic' instead.");
return scm_c_define_subr_with_generic (name, type, fcn, gf);
}
#endif /* !SCM_DEBUG_DEPRECATION */
/*
Local Variables:
c-file-style: "gnu"