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
less debugging output cruft in `swank:frame-locals-and-catch-tags`
[swankr.git]
/
swank.R
diff --git
a/swank.R
b/swank.R
index 22cec64d58f898fad9ce4c68b22110bdd4b4c103..f0aee27babe75b918535f5a6efdae9264d70e78e 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,
@@
-629,10
+628,6
@@
emacsInspect.numeric <- function(numeric) {
}
`swank:compile-file-for-emacs` <- function(slimeConnection, sldbState, filename, loadp, ...) {
}
`swank:compile-file-for-emacs` <- function(slimeConnection, sldbState, filename, loadp, ...) {
- if(loadp==quote(`t`)) {
- source(filename, local=FALSE)
- } else {
- parse(filename)
- }
- TRUE
+ times <- system.time(parse(filename))
+ list(quote(`:compilation-result`), list(), TRUE, times[3], substitute(loadp), filename)
}
}