Changeset 8123 in project


Ignore:
Timestamp:
02/03/08 19:59:49 (12 years ago)
Author:
sjamaan
Message:

Fix bug in 9p:with-output-to-file and make path-walk accept handles instead of straight fids

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/9p/trunk/9p-client.scm

    r8117 r8123  
    169169;; Obtain a new fid
    170170(define (9p:path-walk con path . rest)
    171   (let-optionals rest ((starting-point 0))
     171  (let-optionals rest ((starting-point #f))
    172172    (let ((new-handle (9p:alloc-handle con)))
    173173      (handle-exceptions exn (begin (9p:release-handle new-handle) (signal exn))
    174         (9p:request con 'Twalk starting-point (9p:handle-fid new-handle) (9p:normalize-path path))
     174        (9p:request con 'Twalk (if starting-point (9p:handle-fid starting-point) 0) (9p:handle-fid new-handle) (9p:normalize-path path))
    175175        new-handle))))
    176176
     
    382382(define (9p:open-output-file con file . rest)
    383383  (let ((h (if (9p:file-exists? con file)
    384                (9p:file-open con file (9p:open/wronly 9p:open/trunc))
     384               (9p:file-open con file (bitwise-ior 9p:open/wronly 9p:open/trunc))
    385385               (let-optionals rest ((mode (bitwise-ior 9p:perm/irusr 9p:perm/iwusr
    386386                                                       9p:perm/irgrp 9p:perm/iwgrp
Note: See TracChangeset for help on using the changeset viewer.