Christophe
Weblog
Wiki
Code
Publications
Music
projects
/
swankr.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add tags to bugs
[swankr.git]
/
swank.R
diff --git
a/swank.R
b/swank.R
index fe60f7db49e0c18d9a776996b35b7e49c749bf5f..747696acdee909c21279cc53c190b2c7919c63ed 100644
(file)
--- a/
swank.R
+++ b/
swank.R
@@
-377,7
+377,6
@@
computeRestartsForEmacs <- function (sldbState) {
}
`swank:frame-locals-and-catch-tags` <- function(slimeConnection, sldbState, index) {
}
`swank:frame-locals-and-catch-tags` <- function(slimeConnection, sldbState, index) {
- str(sldbState$frames)
frame <- sldbState$frames[[1+index]]
objs <- ls(envir=frame)
list(lapply(objs, function(name) { list(quote(`:name`), name,
frame <- sldbState$frames[[1+index]]
objs <- ls(envir=frame)
list(lapply(objs, function(name) { list(quote(`:name`), name,
@@
-446,9
+445,16
@@
withRetryRestart <- function(description, expr) {
list()
} else {
filename <- get("filename", srcfile)
list()
} else {
filename <- get("filename", srcfile)
+ ## KLUDGE: what this means is "is the srcfile filename
+ ## absolute?"
+ if(substr(filename, 1, 1) == "/") {
+ file <- filename
+ } else {
+ file <- sprintf("%s/%s", srcfile$wd, filename)
+ }
list(list(sprintf("function %s", string),
list(quote(`:location`),
list(list(sprintf("function %s", string),
list(quote(`:location`),
- list(quote(`:file`),
sprintf("%s/%s", srcfile$wd, srcfile$filename)
),
+ list(quote(`:file`),
file
),
list(quote(`:line`), srcref[[2]][[1]], srcref[[2]][[2]]-1),
list())))
}
list(quote(`:line`), srcref[[2]][[1]], srcref[[2]][[2]]-1),
list())))
}