525 |
(define (tms:cutime obj) (vector-ref obj 3)) |
(define (tms:cutime obj) (vector-ref obj 3)) |
526 |
(define (tms:cstime obj) (vector-ref obj 4)) |
(define (tms:cstime obj) (vector-ref obj 4)) |
527 |
|
|
528 |
(define (file-position . args) (apply ftell args)) |
(define file-position ftell) |
529 |
(define (file-set-position . args) (apply seek args)) |
(define (file-set-position port offset . whence) |
530 |
|
(let ((whence (if (eq? whence '()) SEEK_SET (car whence)))) |
531 |
|
(seek port offset whence))) |
532 |
|
|
533 |
(define (move->fdes fd/port fd) |
(define (move->fdes fd/port fd) |
534 |
(cond ((integer? fd/port) |
(cond ((integer? fd/port) |