Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Christophe Rhodes
swankr
Commits
bf3b2b65
Commit
bf3b2b65
authored
Sep 20, 2014
by
Christophe Rhodes
Browse files
new function `swank:init-presentations`
Set up the REPL reporting function in it, not at toplevel
parent
df701650
Changes
1
Show whitespace changes
Inline
Side-by-side
swank-presentations.R
View file @
bf3b2b65
...
...
@@ -22,8 +22,6 @@ presentReplResult <- function(slimeConnection, value) {
list
(
quote
(
`:write-string`
),
"\n"
,
quote
(
`:repl-result`
)))
}
sendReplResultFunction
<-
presentReplResult
`cl:nth-value`
<-
function
(
slimeConnection
,
sldbState
,
n
,
values
)
{
values
[[
n
+1
]]
}
...
...
@@ -58,3 +56,8 @@ sendReplResultFunction <- presentReplResult
rm
(
list
=
ls
(
slimeConnection
$
idToObject
),
envir
=
slimeConnection
$
idToObject
)
TRUE
}
`swank:init-presentations`
<-
function
(
slimeConnection
,
sldbState
)
{
sendReplResultFunction
<<-
presentReplResult
TRUE
}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment