From 52c9a3381dae7416debfc03fead39101820f9fad Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 21 May 2010 23:36:00 +0200 Subject: [PATCH] define* in file-set-position * module/ice-9/boot-9.scm (file-set-position): Use define*. --- module/ice-9/boot-9.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index b4ea43f93..042063fbc 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -899,9 +899,8 @@ If there is no handler at all, Guile prints an error and then exits." (define (tms:cstime obj) (vector-ref obj 4)) (define file-position ftell) -(define (file-set-position port offset . whence) - (let ((whence (if (eq? whence '()) SEEK_SET (car whence)))) - (seek port offset whence))) +(define* (file-set-position port offset #:optional (whence SEEK_SET)) + (seek port offset whence)) (define (move->fdes fd/port fd) (cond ((integer? fd/port)