X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;h=99f508bc153379b56c4586b6f61e7ee0db6b6c93;hp=1dc95b48800c305489292bc95f4cdb92f381e16e;hb=ab6021d4671892eabc80b7cde045db632176116e;hpb=c15f7575dad3773f1f56e37f5943d8d277f76ee8

diff --git a/swank.R b/swank.R
index 1dc95b4..99f508b 100644
--- a/swank.R
+++ b/swank.R
@@ -113,6 +113,7 @@ sldbLoop <- function(slimeConnection, sldbState, id) {
 }
 
 readPacket <- function(io) {
+  socketSelect(list(io))
   header <- readChunk(io, 6)
   len <- strtoi(header, base=16)
   payload <- readChunk(io, len)