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
make inspector printing more reasonable
[swankr.git]
/
swank.R
diff --git
a/swank.R
b/swank.R
index 3b1f3d78ad29910f51034574f73470ffe6fdd123..59686299ec29b887d015e7d9c4fee76b8fe6ba04 100644
(file)
--- a/
swank.R
+++ b/
swank.R
@@
-658,7
+658,7
@@
inspectObject <- function(slimeConnection, object) {
valuePart <- function(istate, object, string) {
list(quote(`:value`),
valuePart <- function(istate, object, string) {
list(quote(`:value`),
- if(is.null(string)) prin
t
ToString(object) else string,
+ if(is.null(string)) prin
1
ToString(object) else string,
assignIndexInParts(object, istate))
}
assignIndexInParts(object, istate))
}
@@
-669,7
+669,7
@@
preparePart <- function(istate, part) {
switch(as.character(part[[1]]),
`:newline` = list("\n"),
`:value` = valuePart(istate, part[[2]], part[[3]]),
switch(as.character(part[[1]]),
`:newline` = list("\n"),
`:value` = valuePart(istate, part[[2]], part[[3]]),
- `:line` = list(prin
t
ToString(part[[2]]), ": ",
+ `:line` = list(prin
1
ToString(part[[2]]), ": ",
valuePart(istate, part[[3]], NULL), "\n"))
}
}
valuePart(istate, part[[3]], NULL), "\n"))
}
}