From 3fb7a925d4ffbcc5d0dba982d435ca1c0d17d0ce Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 22 Dec 2005 05:55:10 +0000 Subject: [PATCH] * Use immutable strings in errors * Use line buffering on the line to the server svn: r1666 original commit: 0b7c5eb79c4e5811848f931e034e219e816a357f --- collects/net/nntp-unit.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/net/nntp-unit.ss b/collects/net/nntp-unit.ss index 199e73e..fd6be0b 100644 --- a/collects/net/nntp-unit.ss +++ b/collects/net/nntp-unit.ss @@ -44,7 +44,7 @@ (lambda (constructor format-string . args) (lambda exn-args (raise (apply constructor - (apply format format-string args) + (string->immutable-string (apply format format-string args)) (current-continuation-marks) exn-args))))) @@ -61,6 +61,7 @@ [(receiver sender) (connect-to-server* receiver sender "unspecified" "unspecified")] [(receiver sender server-name port-number) + (file-stream-buffer-mode sender 'line) (let ((communicator (make-communicator sender receiver server-name port-number))) (let-values (((code response)