+ computeRestartsForEmacs <- function () {
+ lapply(computeRestarts(sldbState$condition),
+ function(x) {
+ ## this is all a little bit internalsy
+ restartName <- x[[1]][[1]]
+ description <- restartDescription(x)
+ list(restartName, if(is.null(description)) restartName else description)
+ })
+ }