X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;h=f0aee27babe75b918535f5a6efdae9264d70e78e;hp=5fe20bbefe633d6a9f1c1e0009f11e0cef32c9d6;hb=9b83d84a9630016cf93de94109d6ac01090e8f68;hpb=843d2b6fcbc794e06e2fb5e9b2842175ffcb7ec5 diff --git a/swank.R b/swank.R index 5fe20bb..f0aee27 100644 --- a/swank.R +++ b/swank.R @@ -377,7 +377,6 @@ computeRestartsForEmacs <- function (sldbState) { } `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, @@ -622,3 +621,13 @@ emacsInspect.numeric <- function(numeric) { setwd(directory) `swank:default-directory`(slimeConnection, sldbState) } + +`swank:load-file` <- function(slimeConnection, sldbState, filename) { + source(filename, local=FALSE) + TRUE +} + +`swank:compile-file-for-emacs` <- function(slimeConnection, sldbState, filename, loadp, ...) { + times <- system.time(parse(filename)) + list(quote(`:compilation-result`), list(), TRUE, times[3], substitute(loadp), filename) +}