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:
parent
4c1ffcdda1
commit
f68acbb4b4
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue