/[guile]/guile/guile-core/ice-9/boot-9.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/boot-9.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.280 by mvo, Sat Jun 1 16:16:49 2002 UTC revision 1.281 by ghouston, Sat Jun 1 17:14:17 2002 UTC
# Line 525  Line 525 
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)

Legend:
Removed from v.1.280  
changed lines
  Added in v.1.281

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26