From: Christophe Rhodes <csr21@cantab.net>
Date: Wed, 25 Aug 2010 14:55:41 +0000 (+0100)
Subject: ensure that the fifo is closed in printToString()
X-Git-Url: http://christophe.rhodes.io/gitweb/?a=commitdiff_plain;h=2b8d4ed472bd7bd4fef2ab2639d056688bd0bb8d;p=swankr.git

ensure that the fifo is closed in printToString()

Whoops.  Good to know that I can make the same basic stream mistakes
in any language.
---

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) {