diff options
| author | Andy Wingo <wingo@pobox.com> | 2012-01-08 14:27:03 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2012-01-08 14:27:03 +0100 |
| commit | 4f5fb3519471a7e1e520c3cc39e7853f4170349e (patch) | |
| tree | 86cfe2ed8002eb1015bd08450d401610404d223a /libguile/deprecated.c | |
| parent | 729b62bd95c61b6e2992f823b469b76bdc483b0d (diff) | |
deprecate SCM_ASRTGO
* libguile/deprecated.h: Mark scm_immutable_cell and
scm_immutable_double_cell as being SCM_DEPRECATED, not SCM_API.
Deprecate SCM_ASRTGO.
* libguile/deprecated.c (scm_i_deprecated_asrtgo): New support
procedure.
* doc/ref/api-control.texi (Handling Errors): Remove ASRTGO docs.
Diffstat (limited to 'libguile/deprecated.c')
| -rw-r--r-- | libguile/deprecated.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index 4ba305e80..530d2d425 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -2624,6 +2624,18 @@ scm_immutable_double_cell (scm_t_bits car, scm_t_bits cbr, return scm_double_cell (car, cbr, ccr, cdr); } + + + +scm_t_bits +scm_i_deprecated_asrtgo (scm_t_bits condition) +{ + scm_c_issue_deprecation_warning + ("SCM_ASRTGO is deprecated. Use `if (!condition) goto label;' directly."); + + return condition; +} + |