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

* boot-9.scm (file-set-position): use seek, not fseek. Make

Browse source 
third argument optional, for better SCM compatibility.
	(file-position): simplify definition.
This commit is contained in:
Gary Houston 2002-06-01 17:14:17 +00:00
parent be87cdb704
commit 1334c61ab0
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -1,3 +1,9 @@
2002-06-01 Gary Houston <ghouston@arglist.com>
* boot-9.scm (file-set-position): Make third argument optional,
for SCM compatibility.
(file-position): simplify definition.
2002-06-01 Marius Vollmer <mvo@zagadka.ping.de>
* boot-9.scm (file-set-position): Use seek instead of fseek.

6
ice-9/boot-9.scm
View file

@ -525,8 +525,10 @@
(define (tms:cutime obj) (vector-ref obj 3))
(define (tms:cstime obj) (vector-ref obj 4))
(define (file-position . args) (apply ftell args))
(define (file-set-position . args) (apply seek args))
(define file-position ftell)
(define (file-set-position port offset . whence)
(let ((whence (if (eq? whence '()) SEEK_SET (car whence))))
(seek port offset whence)))
(define (move->fdes fd/port fd)
(cond ((integer? fd/port)