mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* ioext.c (scm_sys_ftell): use scm_long2num instead of SCM_MAKINUM

Browse source 
to convert the returned value.
(scm_sys_fseek): use scm_num2long instead of SCM_INUM to convert
the offset argument.
This commit is contained in:
Gary Houston 1996-12-09 20:52:37 +00:00
parent 5ce61f2470
commit 8588fa1267
2 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/ioext.c
View file

@ -69,7 +69,7 @@ scm_sys_ftell (port)
scm_syserror (s_sys_ftell);
if (pos > 0 && SCM_CRDYP (port))
pos--;
return SCM_MAKINUM (pos);
return scm_long2num (pos);
}
@ -83,13 +83,16 @@ scm_sys_fseek (port, offset, whence)
SCM whence;
{
int rv;
long loff;
SCM_ASSERT (SCM_NIMP (port) && SCM_OPFPORTP (port), port, SCM_ARG1, s_sys_fseek);
SCM_ASSERT (SCM_INUMP (offset), offset, SCM_ARG2, s_sys_fseek);
loff = scm_num2long (offset, (char *)SCM_ARG2, s_sys_fseek);
SCM_ASSERT (SCM_INUMP (whence) && (SCM_INUM (whence) < 3) && (SCM_INUM (whence) >= 0),
whence, SCM_ARG3, s_sys_fseek);
SCM_CLRDY (port); /* Clear ungetted char */
/* Values of whence are interned in scm_init_ioext. */
rv = fseek ((FILE *)SCM_STREAM (port), SCM_INUM (offset), SCM_INUM (whence));
rv = fseek ((FILE *)SCM_STREAM (port), loff, SCM_INUM (whence));
if (rv != 0)
scm_syserror (s_sys_fseek);
return SCM_UNSPECIFIED;