From f68acbb4b4006e83e7f5da2fa6a6d1468526625b Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sat, 1 Jun 2002 16:16:49 +0000 Subject: [PATCH] (file-set-position): Use seek instead of fseek. --- ice-9/boot-9.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 7dfa381aa..73878cdb6 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -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)