From: Christophe Rhodes <csr21@cantab.net>
Date: Fri, 13 Aug 2010 16:00:22 +0000 (+0100)
Subject: get definitions (use of <-) to work in the REPL
X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=commitdiff_plain;h=21417cc77b6c04eb127db66c620f7b4e38164ace

get definitions (use of <-) to work in the REPL

the REPL now evaluates with envir=globalenv(), rather than in the
environment of `swank:listener-eval`...
---

diff --git a/swank.R b/swank.R
index 71d502e..dc5cbd1 100644
--- a/swank.R
+++ b/swank.R
@@ -239,7 +239,7 @@ writeSexpToString <- function(obj) {
 }
 
 `swank:listener-eval` <- function(io, sldbState, string) {
-  val <- eval(parse(text=string))
+  val <- eval(parse(text=string), envir = globalenv())
   f <- fifo("")
   sink(f)
   print(val)