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

flush sender port after sending text

Browse Source 
svn: r2649
This commit is contained in:
Eli Barzilay 2006-04-10 00:33:06 +00:00
parent f1f301c966
commit 36cb3b9092
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -147,9 +147,11 @@
(define send-to-server (define send-to-server
(lambda (communicator message-template . rest) (lambda (communicator message-template . rest)
(apply fprintf (communicator-sender communicator) (let ([sender (communicator-sender communicator)])
(string-append message-template "\r\n") (apply fprintf sender
rest))) (string-append message-template "\r\n")
rest)
(flush-output sender))))
;; parse-status-line : ;; parse-status-line :
;; string -> number x string ;; string -> number x string