X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;h=13164853c32efb8a4c0c4086229a7431c6d99516;hp=bd7e093703fa4a4d5f9fc5ea7e1ad986853ad7fa;hb=eb2756730af853555a941d7acb595c07169f3524;hpb=1b24056279f85b8b6988f8d35eceaf98ba3dc615

diff --git a/swank.R b/swank.R
index bd7e093..1316485 100644
--- 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)
   }