diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2011-02-02 22:02:09 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2011-02-02 22:02:09 +0100 |
| commit | 215e03127d5c8f7375cf4d8dd0ef57797738de47 (patch) | |
| tree | fadd49496c60beaeb877db7fedadbce3dbedd980 /libguile/srfi-13.c | |
| parent | fc740bfce727f5f7f026e0de7ad21306fead9490 (diff) | |
| download | guile-215e03127d5c8f7375cf4d8dd0ef57797738de47.tar.gz | |
Enclose SRFI-13 deprecation handling in `#if SCM_ENABLE_DEPRECATED == 1'.
* libguile/srfi-13.c (scm_string_filter, scm_string_delete): Enclose
deprecated call convention handling in `#if SCM_ENABLE_DEPRECATED == 1'.
Diffstat (limited to 'libguile/srfi-13.c')
| -rw-r--r-- | libguile/srfi-13.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/libguile/srfi-13.c b/libguile/srfi-13.c index dfe948b92..9efe2753b 100644 --- a/libguile/srfi-13.c +++ b/libguile/srfi-13.c @@ -3051,10 +3051,11 @@ SCM_DEFINE (scm_string_filter, "string-filter", 2, 2, 0, SCM result; size_t idx; +#if SCM_ENABLE_DEPRECATED == 1 if (scm_is_string (char_pred)) { SCM tmp; - + scm_c_issue_deprecation_warning ("Guile used to use the wrong argument order for string-filter.\n" "This call to string-filter had the arguments in the wrong order.\n" @@ -3064,6 +3065,7 @@ SCM_DEFINE (scm_string_filter, "string-filter", 2, 2, 0, char_pred = s; s = tmp; } +#endif MY_VALIDATE_SUBSTRING_SPEC (2, s, 3, start, cstart, @@ -3182,10 +3184,11 @@ SCM_DEFINE (scm_string_delete, "string-delete", 2, 2, 0, SCM result; size_t idx; +#if SCM_ENABLE_DEPRECATED == 1 if (scm_is_string (char_pred)) { SCM tmp; - + scm_c_issue_deprecation_warning ("Guile used to use the wrong argument order for string-delete.\n" "This call to string-filter had the arguments in the wrong order.\n" @@ -3195,6 +3198,7 @@ SCM_DEFINE (scm_string_delete, "string-delete", 2, 2, 0, char_pred = s; s = tmp; } +#endif MY_VALIDATE_SUBSTRING_SPEC (2, s, 3, start, cstart, |