summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-10-30 08:24:23 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-10-30 08:24:23 +0000
commite6a207b366f26ee50058697346afda7d6638c315 (patch)
tree63571b55c94da1be7138f76da773d27a34dbaf98
parent64e764482e5d9b4686e23622e7efcfe44ce45b5e (diff)
downloadguile-e6a207b366f26ee50058697346afda7d6638c315.tar.gz
* ioext.c (scm_ftell): Use SCM_N_READY_CHARS to correct position.
-rw-r--r--libguile/ioext.c2
1 files changed, 1 insertions, 1 deletions
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
{