/[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.266.2.10 by rlb, Thu May 16 16:48:32 2002 UTC revision 1.266.2.11 by mvo, Sun Jun 2 00:24:46 2002 UTC
# Line 544  Line 544 
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)

Legend:
Removed from v.1.266.2.10  
changed lines
  Added in v.1.266.2.11

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