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
catch errors during printing of frame locals
[swankr.git]
/
swank.R
diff --git
a/swank.R
b/swank.R
index f0c0d15373ff150a29f291f56d89b23f9050c276..0b48ed34e1dd29f2e0f5a96bb98594fdeb227db6 100644
(file)
--- a/
swank.R
+++ b/
swank.R
@@
-425,7
+425,12
@@
computeRestartsForEmacs <- function (sldbState) {
objs <- ls(envir=frame)
list(lapply(objs, function(name) { list(quote(`:name`), name,
quote(`:id`), 0,
objs <- ls(envir=frame)
list(lapply(objs, function(name) { list(quote(`:name`), name,
quote(`:id`), 0,
- quote(`:value`), printToString(eval(parse(text=name), envir=frame))) }),
+ quote(`:value`),
+ tryCatch({
+ printToString(eval(parse(text=name), envir=frame))
+ }, error=function(c) {
+ sprintf("error printing object")
+ }))}),
list())
}
list())
}