mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 20:20:24 +02:00
Code Activity

better scm_subr_p deprecation

Browse source 
* libguile/deprecated.h (scm_subr_p): Dispatch instead to scm_i_subr_p so we get
  link-time and run-time warnings.
* libguile/deprecated.c (scm_i_subr_p): Here we call SCM_PRIMITIVE_P.
This commit is contained in:
Andy Wingo 2010-01-06 11:09:56 +01:00
parent f1d19308ad
commit 97812f4d38
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/deprecated.c
View file

@ -1785,6 +1785,13 @@ scm_trampoline_2 (SCM proc)
return scm_call_2; return scm_call_2;
} }
int
scm_i_subr_p (SCM x)
{
scm_c_issue_deprecation_warning ("`scm_subr_p' is deprecated. Use SCM_PRIMITIVE_P instead.");
return SCM_PRIMITIVE_P (x);
}
void void
scm_i_init_deprecated () scm_i_init_deprecated ()

3
libguile/deprecated.h
View file

@ -606,7 +606,8 @@ SCM_DEPRECATED scm_t_trampoline_2 scm_trampoline_2 (SCM proc);
/* Deprecated 2010-01-05, use SCM_PRIMITIVE_P instead */ /* Deprecated 2010-01-05, use SCM_PRIMITIVE_P instead */
#define scm_subr_p(x) (SCM_PRIMITIVE_P (x)) SCM_DEPRECATED int scm_i_subr_p (SCM x);
#define scm_subr_p(x) (scm_i_subr_p (x))