From d21ef93ea0a9ece650aab42fd2059118c20895c7 Mon Sep 17 00:00:00 2001 From: lotodore Date: Wed, 14 Nov 2007 22:15:19 +0000 Subject: [PATCH] Suppress displaying messages. --- tests/pkth.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/pkth.scm b/tests/pkth.scm index ec988599..ac0aa043 100644 --- a/tests/pkth.scm +++ b/tests/pkth.scm @@ -696,7 +696,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 @@ -717,7 +717,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)))