suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* Use immutable strings in errors

Browse Source 
* Use line buffering on the line to the server

svn: r1666
This commit is contained in:
Eli Barzilay 2005-12-22 05:55:10 +00:00
parent fd641b6b92
commit 0b7c5eb79c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/net/nntp-unit.ss
View File

@ -44,7 +44,7 @@
(lambda (constructor format-string . args) (lambda (constructor format-string . args)
(lambda exn-args (lambda exn-args
(raise (apply constructor (raise (apply constructor
(apply format format-string args) (string->immutable-string (apply format format-string args))
(current-continuation-marks) (current-continuation-marks)
exn-args))))) exn-args)))))
@ -61,6 +61,7 @@
[(receiver sender) (connect-to-server* receiver sender "unspecified" [(receiver sender) (connect-to-server* receiver sender "unspecified"
"unspecified")] "unspecified")]
[(receiver sender server-name port-number) [(receiver sender server-name port-number)
(file-stream-buffer-mode sender 'line)
(let ((communicator (make-communicator sender receiver server-name (let ((communicator (make-communicator sender receiver server-name
port-number))) port-number)))
(let-values (((code response) (let-values (((code response)