fport_seek: Eliminate a fruitless use of 'off_t_or_off64_t'.

This is a followup to commit 91ba73b397fcc2a36ae7e434522a924c7a8887d0.

* libguile/fports.c (fport_seek): Use 'lseek' instead of
'lseek_or_lseek64', and use 'scm_t_off' uniformly.  That's the type used
in the function signature, and there's no benefit to using a wider type
internally.  Remove the overflow check, which is no longer needed.

diff --git a/libguile/fports.c b/libguile/fports.c
index 5de08d319f49dfc8e8bd6091f1557c6cf7dc578d..5f1bbb9b493933d7bb4efae89138cae00808d4e6 100644 (file)
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -613,18 +613,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;
 }