summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2019-08-02 15:04:20 +0200
committerAndy Wingo <wingo@pobox.com>2019-08-02 15:04:20 +0200
commitb3b14fe6a217244a8566ca6ee9bf040fe877b37c (patch)
treec35e4864030e7ea422c7b51a188e0c3cd12c7795
parent663b26819ef5f7ccf2368e846838ba0f6c27e5ac (diff)
parenta17b727963dd8c443f35be9b64b1625e9fa5eddf (diff)
downloadguile-b3b14fe6a217244a8566ca6ee9bf040fe877b37c.tar.gz
Merge from stable-2.2
-rw-r--r--libguile/fports.c9
1 files changed, 2 insertions, 7 deletions
diff --git a/libguile/fports.c b/libguile/fports.c
index b9b16f3b7..d97c54c01 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -626,18 +626,13 @@ static scm_t_off
fport_seek (SCM port, scm_t_off offset, int whence)
{
scm_t_fport *fp = SCM_FSTREAM (port);
- off_t_or_off64_t result;
+ scm_t_off result;
- result = lseek_or_lseek64 (fp->fdes, offset, whence);
+ result = lseek (fp->fdes, offset, whence);
if (result == -1)
scm_syserror ("fport_seek");
- /* Check to make sure the result fits in scm_t_off,
- which might be smaller than off_t_or_off64_t. */
- if (result > SCM_T_OFF_MAX)
- scm_num_overflow ("fport_seek");
-
return result;
}