summaryrefslogtreecommitdiff
path: root/elisp/geiser-compile.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-24 02:18:28 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-24 02:18:28 +0100
commit641449ca6073648d5722d1a552d3a5245d523e48 (patch)
tree5cf7ba8f01858b6485648b74c263299e16fa0be0 /elisp/geiser-compile.el
parentabe0355b7eb7961c89ef2e37f68451b131dacb05 (diff)
downloadgeiser-chez-641449ca6073648d5722d1a552d3a5245d523e48.tar.gz
geiser-chez-641449ca6073648d5722d1a552d3a5245d523e48.tar.bz2
Partial support for stack trace display.
Diffstat (limited to 'elisp/geiser-compile.el')
-rw-r--r--elisp/geiser-compile.el34
1 files changed, 5 insertions, 29 deletions
diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index 82200a5..8b4a4db 100644
--- a/elisp/geiser-compile.el
+++ b/elisp/geiser-compile.el
@@ -24,20 +24,11 @@
;;; Code:
+(require 'geiser-debug)
(require 'geiser-eval)
-(require 'geiser-popup)
(require 'geiser-base)
-;;; Compilation buffer:
-
-(define-derived-mode geiser-compile-mode compilation-mode "Geiser Compilation"
- "Major mode showing the results of compiling or loading scheme files.
-\{geiser-compile-mode-keymap}")
-
-(geiser-popup--define compile "*Geiser compilation*" geiser-compile-mode)
-
-
;;; Auxiliary functions:
(defun geiser-compile--buffer/path (&optional path)
@@ -49,25 +40,10 @@
(cons buffer path))))
(defun geiser-compile--display-result (title ret)
- (let ((err (geiser-eval--retort-error ret))
- (output (geiser-eval--retort-output ret)))
- (geiser-compile--with-buffer
- (erase-buffer)
- (insert title)
- (newline)
- (when output
- (insert output)
- (newline))
- (when err
- (insert "\n" (geiser-eval--error-msg err) "\n"))
- (goto-char (point-min)))
- (if (not err)
- (message "%s %s" title (if (> 0 (length output))
- (geiser--chomp output)
- (or (geiser-eval--retort-result ret)
- "OK!")))
- (message "")
- (geiser-compile--pop-to-buffer))))
+ (if (not (geiser-eval--retort-error ret))
+ (message "%s %s" title (or (geiser-eval--retort-result ret) "OK!"))
+ (message "")
+ (geiser-debug--display-retort title ret)))
(defun geiser-compile--file-op (path compile-p msg)
(let* ((b/p (geiser-compile--buffer/path path))