ensure that the fifo is closed in printToString()

[swankr.git] / swank.R

diff --git a/swank.R b/swank.R
index 1c1633d77ad8c7aa7fa8a709eb3a3bcd02e57e10..05b1c784f6aca534b4361349ba05adb9cc732529 100644 (file)
--- 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) {