From e6a207b366f26ee50058697346afda7d6638c315 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Fri, 30 Oct 1998 08:24:23 +0000 Subject: [PATCH] * ioext.c (scm_ftell): Use SCM_N_READY_CHARS to correct position. --- libguile/ioext.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/ioext.c b/libguile/ioext.c index c18866a51..73de33fa7 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -213,7 +213,7 @@ scm_ftell (object) { SCM_SYSCALL (pos = ftell ((FILE *)SCM_STREAM (object))); if (pos > 0 && SCM_CRDYP (object)) - pos--; + pos -= SCM_N_READY_CHARS (object); } else { -- 2.20.1