dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* 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
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/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)