mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

define* in file-set-position

Browse source 
* module/ice-9/boot-9.scm (file-set-position): Use define*.
This commit is contained in:
Andy Wingo 2010-05-21 23:36:00 +02:00
parent d44a0d12b4
commit 52c9a3381d
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/ice-9/boot-9.scm
View file

@ -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)