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

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

Browse source
This commit is contained in:
Marius Vollmer 2002-06-01 16:16:49 +00:00
parent 4c1ffcdda1
commit f68acbb4b4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/boot-9.scm
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)