scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix a bug in SEND-MESSAGE: 

There is such a thing as an empty datagram; SEND-MESSAGE used to
ignore those.  Now force those to be sent as well.
This commit is contained in:
sperber 2003-01-21 09:47:10 +00:00
parent ad18648afa
commit 4a1c23a9bb
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scsh/network.scm
View File

@ -504,10 +504,12 @@
(error "Bad substring indices" (error "Bad substring indices"
socket flags family addr socket flags family addr
s start end writer)) s start end writer))
(if (= start end)
(let loop ((i start)) ;; there is such a thing as an empty message
(if (< i end) (writer socket flags s start end family addr)
(loop (+ i (writer socket flags s i end family addr)))))) (let loop ((i start))
(if (< i end)
(loop (+ i (writer socket flags s i end family addr)))))))
(define (send-message/partial socket s . args) (define (send-message/partial socket s . args)