/[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.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)

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

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