X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;h=fe60f7db49e0c18d9a776996b35b7e49c749bf5f;hp=22cec64d58f898fad9ce4c68b22110bdd4b4c103;hb=62825b54e48ad5a32808c13cc183c5c78c5cf672;hpb=18d669ab18293271e6e67b49a3b7e7e11d0e9ee5

diff --git a/swank.R b/swank.R
index 22cec64..fe60f7d 100644
--- a/swank.R
+++ b/swank.R
@@ -629,10 +629,6 @@ emacsInspect.numeric <- function(numeric) {
 }
 
 `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)
 }