mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-03 18:50:19 +02:00
* boot-9.scm (file-set-position): use seek, not fseek. Make
third argument optional, for better SCM compatibility. (file-position): simplify definition.
This commit is contained in:
parent
be87cdb704
commit
1334c61ab0
2 changed files with 10 additions and 2 deletions
|
@ -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.
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue