summaryrefslogtreecommitdiff
path: root/elisp/geiser-compile.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2016-06-11 18:37:36 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2016-06-11 18:37:36 +0200
commit2fc156374fb2e20e2f25ab020589dc032ff4578a (patch)
tree9ed0b63f95c85ae005cbe7574960ce3bf8f06fe6 /elisp/geiser-compile.el
parentcc84a03528f016779f7ce478b46d6170b989de81 (diff)
downloadgeiser-2fc156374fb2e20e2f25ab020589dc032ff4578a.tar.gz
geiser-2fc156374fb2e20e2f25ab020589dc032ff4578a.tar.bz2
Cleanups to the show/jump debug buffer mess
Let's see if i finally got this right...
Diffstat (limited to 'elisp/geiser-compile.el')
-rw-r--r--elisp/geiser-compile.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index 521803e..26aad16 100644
--- a/elisp/geiser-compile.el
+++ b/elisp/geiser-compile.el
@@ -1,6 +1,6 @@
;; geiser-compile.el -- compile/load scheme files
-;; Copyright (C) 2009, 2010, 2011, 2012, 2013 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2016 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -37,12 +37,11 @@
(let* ((b/p (geiser-compile--buffer/path path))
(buffer (car b/p))
(path (cdr b/p))
- (msg (format "%s %s ..." msg path)))
+ (msg (format "%s %s ..." msg path))
+ (code `(,(if compile-p :comp-file :load-file) ,path)))
(message msg)
(geiser-autodoc--clean-cache)
- (geiser-compile--display-result
- msg (geiser-eval--send/wait
- `(,(if compile-p :comp-file :load-file) ,path)))))
+ (geiser-compile--display-result msg (geiser-eval--send/wait code))))
;;; User commands: