Changeset 7290 in project


Ignore:
Timestamp:
01/07/08 00:40:25 (12 years ago)
Author:
sjamaan
Message:

Remove a few debugging messages

File:
1 edited

Legend:

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

    r7289 r7290  
    192192               (data (car (9p:message-contents response)))
    193193               (read (u8vector-length data)))
    194           (printf "JUST READ AT ~S: data ~S\n" pos data)
    195194          (cond
    196195           ((zero? read)
     
    251250  (call-with-values
    252251      (lambda () (9p:file-stat con file))
    253     (lambda l (printf "DETERMINING SIZE OF ~S, rest = ~S\n" file l) (list-ref l 4))))
     252    (lambda l (list-ref l 4))))
    254253
    255254;; 5 is file-name, which is rather silly
     
    342341    (make-input-port (lambda ()
    343342                       (let ((result (9p:file-read h 1)))
    344                          (printf "RESULT = ~S\n" result)
    345343                         (if (zero? (cadr result))
    346344                             #!eof
Note: See TracChangeset for help on using the changeset viewer.