X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;h=05b1c784f6aca534b4361349ba05adb9cc732529;hp=1c1633d77ad8c7aa7fa8a709eb3a3bcd02e57e10;hb=2b8d4ed472bd7bd4fef2ab2639d056688bd0bb8d;hpb=5035036a7da09e17a5a70ea7ea15657d671e9c52

diff --git a/swank.R b/swank.R
index 1c1633d..05b1c78 100644
--- a/swank.R
+++ b/swank.R
@@ -230,10 +230,8 @@ writeSexpToString <- function(obj) {
 
 printToString <- function(val) {
   f <- fifo("")
-  sink(f)
-  print(val)
-  sink()
-  readLines(f)
+  tryCatch({ sink(f); print(val); sink(); readLines(f) },
+           finally=close(f))
 }
 
 `swank:connection-info` <- function (io, sldbState) {