summaryrefslogtreecommitdiff
path: root/elisp/geiser-compile.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-21 04:46:14 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-21 04:46:14 +0100
commitabe0355b7eb7961c89ef2e37f68451b131dacb05 (patch)
tree5e51a1acc9a39382a5c3c05e441b154933c0caff /elisp/geiser-compile.el
parent612c7390fc3ff78ac9b0b10b83304095cfceccd5 (diff)
downloadgeiser-chez-abe0355b7eb7961c89ef2e37f68451b131dacb05.tar.gz
geiser-chez-abe0355b7eb7961c89ef2e37f68451b131dacb05.tar.bz2
Correct stack in load/compile file retorts.
Diffstat (limited to 'elisp/geiser-compile.el')
-rw-r--r--elisp/geiser-compile.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index ee6c5f8..82200a5 100644
--- a/elisp/geiser-compile.el
+++ b/elisp/geiser-compile.el
@@ -69,14 +69,14 @@
(message "")
(geiser-compile--pop-to-buffer))))
-(defun geiser-compile--file-op (path op msg)
+(defun geiser-compile--file-op (path compile-p msg)
(let* ((b/p (geiser-compile--buffer/path path))
(buffer (car b/p))
(path (cdr b/p))
(msg (format "%s %s ..." msg path)))
(message msg)
(geiser-compile--display-result
- msg (geiser-eval--send/wait `(:eval ((:ge ,op) ,path) (geiser emacs))))))
+ msg (geiser-eval--send/wait `(,(if compile-p :comp-file :load-file) ,path)))))
;;; User commands:
@@ -84,7 +84,7 @@
(defun geiser-compile-file (path)
"Compile and load Scheme file."
(interactive "FScheme file: ")
- (geiser-compile--file-op path 'compile-file "Compiling"))
+ (geiser-compile--file-op path t "Compiling"))
(defun geiser-compile-current-buffer ()
"Compile and load current Scheme file."
@@ -94,7 +94,7 @@
(defun geiser-load-file (path)
"Load Scheme file."
(interactive "FScheme file: ")
- (geiser-compile--file-op path 'load-file "Loading"))
+ (geiser-compile--file-op path nil "Loading"))
(defun geiser-load-current-buffer ()
"Load current Scheme file."