mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 09:20:23 +02:00
Code Activity

(file-set-position): Make third argument optional,

Browse source 
for SCM compatibility.
(file-position): simplify definition.
This commit is contained in:
Marius Vollmer 2002-06-02 00:24:46 +00:00
parent a3a97bcdcc
commit cc5eb6357e
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -544,8 +544,10 @@
(define (tms:cutime obj) (vector-ref obj 3)) (define (tms:cutime obj) (vector-ref obj 3))
(define (tms:cstime obj) (vector-ref obj 4)) (define (tms:cstime obj) (vector-ref obj 4))
(define (file-position . args) (apply ftell args)) (define file-position ftell)
(define (file-set-position . args) (apply fseek args)) (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) (define (move->fdes fd/port fd)
(cond ((integer? fd/port) (cond ((integer? fd/port)