diff options
author | Andy Wingo <wingo@pobox.com> | 2019-08-02 15:04:20 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2019-08-02 15:04:20 +0200 |
commit | b3b14fe6a217244a8566ca6ee9bf040fe877b37c (patch) | |
tree | c35e4864030e7ea422c7b51a188e0c3cd12c7795 | |
parent | 663b26819ef5f7ccf2368e846838ba0f6c27e5ac (diff) | |
parent | a17b727963dd8c443f35be9b64b1625e9fa5eddf (diff) | |
download | guile-b3b14fe6a217244a8566ca6ee9bf040fe877b37c.tar.gz |
Merge from stable-2.2
-rw-r--r-- | libguile/fports.c | 9 |
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; } |