sco/pokerth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Suppress packet display for now.

Browse Source
This commit is contained in:
lotodore
2007-10-29 09:21:45 +00:00
parent e36d878a07
commit 62e030d9e2
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/pkth.scm
+2 -2
View File
@@ -695,7 +695,7 @@
(define pkth-send-message (define pkth-send-message
(lambda (socket message) (lambda (socket message)
(msg-display message helper-direction-send) ;(msg-display message helper-direction-send)
(pkth-send-message-nolog socket message))) (pkth-send-message-nolog socket message)))
; The recv function for PKTH is somewhat more complicated, because ; 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! helper-var-recv-buf (string-drop helper-var-recv-buf packetlen))
(set! ret (string->bytes packet)) (set! ret (string->bytes packet))
(test-assert (pkth-is-valid-type? ret) "Invalid PKTH message type.") (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) (if (not abort)
(let ((buf (make-string pkth-buf-length))) (let ((buf (make-string pkth-buf-length)))