544 |
(define (tms:cutime obj) (vector-ref obj 3)) |
(define (tms:cutime obj) (vector-ref obj 3)) |
545 |
(define (tms:cstime obj) (vector-ref obj 4)) |
(define (tms:cstime obj) (vector-ref obj 4)) |
546 |
|
|
547 |
(define (file-position . args) (apply ftell args)) |
(define file-position ftell) |
548 |
(define (file-set-position . args) (apply fseek args)) |
(define (file-set-position port offset . whence) |
549 |
|
(let ((whence (if (eq? whence '()) SEEK_SET (car whence)))) |
550 |
|
(seek port offset whence))) |
551 |
|
|
552 |
(define (move->fdes fd/port fd) |
(define (move->fdes fd/port fd) |
553 |
(cond ((integer? fd/port) |
(cond ((integer? fd/port) |