diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-15 11:47:48 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-15 11:47:48 +0000 |
| commit | f5f2dcffbea9a33f0e1d2adbe07b20fcf7ac3322 (patch) | |
| tree | e71c3be5e7b8d307a9a608fd71ff9fe9fc7e5d23 /libguile/chars.h | |
| parent | ae09e7ac288fd8fd467d3278bff2e9ccbefb862d (diff) | |
| download | guile-f5f2dcffbea9a33f0e1d2adbe07b20fcf7ac3322.tar.gz | |
* Wrapped deprecated code between #if (SCM_DEBUG_DEPRECATED == 0) #endif.
* Replace use of deprecated macros SCM_INPORTP, SCM_OUTPORTP, SCM_ICHRP.
Diffstat (limited to 'libguile/chars.h')
| -rw-r--r-- | libguile/chars.h | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/libguile/chars.h b/libguile/chars.h index 45850faeb..6b7a896fe 100644 --- a/libguile/chars.h +++ b/libguile/chars.h @@ -53,10 +53,6 @@ #define SCM_CHAR(x) ((unsigned int)SCM_ITAG8_DATA(x)) #define SCM_MAKE_CHAR(x) SCM_MAKE_ITAG8(x, scm_tc8_char) -#define SCM_ICHRP(x) SCM_CHARP(x) /* deprecated */ -#define SCM_ICHR(x) SCM_CHAR(x) /* deprecated */ -#define SCM_MAKICHR(x) SCM_MAKE_CHAR(x) /* deprecated */ - extern char *const scm_charnames[]; @@ -91,6 +87,16 @@ extern int scm_upcase (unsigned int c); extern int scm_downcase (unsigned int c); extern void scm_init_chars (void); + + +#if (SCM_DEBUG_DEPRECATED == 0) + +#define SCM_ICHRP(x) SCM_CHARP(x) +#define SCM_ICHR(x) SCM_CHAR(x) +#define SCM_MAKICHR(x) SCM_MAKE_CHAR(x) + +#endif /* SCM_DEBUG_DEPRECATED == 0 */ + #endif /* SCM_CHARSH */ /* |