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/ioext.c | |
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/ioext.c')
-rw-r--r-- | libguile/ioext.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/ioext.c b/libguile/ioext.c index 796ac091d..07a9efb6a 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -310,6 +310,9 @@ SCM_DEFINE (scm_ftell, "ftell", 1, 0, 0, } #undef FUNC_NAME + +#if (SCM_DEBUG_DEPRECATED == 0) + SCM_DEFINE (scm_fseek, "fseek", 3, 0, 0, (SCM object, SCM offset, SCM whence), "Obsolete. Almost the same as seek, above, but the return value is\n" @@ -321,6 +324,9 @@ SCM_DEFINE (scm_fseek, "fseek", 3, 0, 0, } #undef FUNC_NAME +#endif /* SCM_DEBUG_DEPRECATED == 0 */ + + SCM_DEFINE (scm_redirect_port, "redirect-port", 2, 0, 0, (SCM old, SCM new), "This procedure takes two ports and duplicates the underlying file\n" |