Parent Directory | Revision Log | Patch
revision 1.279 by mvo, Thu May 9 19:36:30 2002 UTC | revision 1.280 by mvo, Sat Jun 1 16:16:49 2002 UTC | |
---|---|---|
# | Line 526 | Line 526 |
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 . args) (apply ftell args)) |
529 | (define (file-set-position . args) (apply fseek args)) | (define (file-set-position . args) (apply seek args)) |
530 | ||
531 | (define (move->fdes fd/port fd) | (define (move->fdes fd/port fd) |
532 | (cond ((integer? fd/port) | (cond ((integer? fd/port) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |