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

1999-08-12 Gary Houston <ghouston@easynet.co.uk>

Browse source 
* ports.c (scm_seek): one more: was scm_lseek.  Also changed the
	Scheme name from lseek to seek, but lseek was added recently so
	it shouldn't be a big problem.
	* ports.c, gdbint.c, ioext.c: changed callers.
This commit is contained in:
Gary Houston 1999-08-12 18:58:55 +00:00
parent affc96b533
commit c94577b445
5 changed files with 23 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ioext.c
View file

@ -299,7 +299,7 @@ SCM
scm_ftell (object)
SCM object;
{
return scm_lseek (object, SCM_INUM0, SCM_MAKINUM (SEEK_CUR));
return scm_seek (object, SCM_INUM0, SCM_MAKINUM (SEEK_CUR));
}
SCM_PROC (s_fseek, "fseek", 3, 0, 0, scm_fseek);
@ -310,7 +310,7 @@ scm_fseek (object, offset, whence)
SCM offset;
SCM whence;
{
scm_lseek (object, offset, whence);
scm_seek (object, offset, whence);
return SCM_UNSPECIFIED;
}