use srcfile$wd when going to source for an sldb frame

it worked before while emacs and R were started with the same working directory; this is not always going to be the case.
csrhodes · Sep 1, 2010 · eb27567 · eb27567
1 parent 1b24056
commit eb27567
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/swank.R b/swank.R
@@ -349,9 +349,8 @@ computeRestartsForEmacs <- function (sldbState) {
   if(is.null(srcfile)) {
     list(quote(`:error`), "no srcfile")
   } else {
-    filename <- get("filename", srcfile)
     list(quote(`:location`),
-         list(quote(`:file`), filename),
+         list(quote(`:file`), sprintf("%s/%s", srcfile$wd, srcfile$filename)),
          list(quote(`:line`), srcref[[1]], srcref[[2]]-1),
          FALSE)
   }