Suppress packet display for now.

2007-10-29 09:21:45 +00:00
parent e36d878a07
commit 62e030d9e2
1 changed files with 2 additions and 2 deletions
@@ -695,7 +695,7 @@

 (define pkth-send-message
  (lambda (socket message)
-    (msg-display message helper-direction-send)
+    ;(msg-display message helper-direction-send)
    (pkth-send-message-nolog socket message)))

 ; The recv function for PKTH is somewhat more complicated, because
@@ -716,7 +716,7 @@
                            (set! helper-var-recv-buf (string-drop helper-var-recv-buf packetlen))
                            (set! ret (string->bytes packet))
                            (test-assert (pkth-is-valid-type? ret) "Invalid PKTH message type.")
-                            (msg-display ret helper-direction-recv)
+                            ;(msg-display ret helper-direction-recv)
                            )))))))
          (if (not abort)
              (let ((buf (make-string pkth-buf-length)))