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

Suppress displaying messages.

Browse Source
This commit is contained in:
lotodore
2007-11-14 22:15:19 +00:00
parent 82a1be763b
commit d21ef93ea0
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
@@ -696,7 +696,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
@@ -717,7 +717,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)))