1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-04 11:10:27 +02:00

(file-set-position): Use seek instead of fseek.

This commit is contained in:
Marius Vollmer 2002-06-01 16:16:49 +00:00
parent 4c1ffcdda1
commit f68acbb4b4

View file

@ -526,7 +526,7 @@
(define (tms:cstime obj) (vector-ref obj 4))
(define (file-position . args) (apply ftell args))
(define (file-set-position . args) (apply fseek args))
(define (file-set-position . args) (apply seek args))
(define (move->fdes fd/port fd)
(cond ((integer? fd/port)