* Wrapped deprecated code between #if (SCM_DEBUG_DEPRECATED == 0) #endif.

[bpt/guile.git] / libguile / ioext.c

diff --git a/libguile/ioext.c b/libguile/ioext.c
index 796ac09..07a9efb 100644 (file)
--- 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"