From 8bf2c578f184837968b1a16cf07235e9ba616a91 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 24 Feb 2009 02:18:28 +0100 Subject: Partial support for stack trace display. --- elisp/geiser-mode.el | 17 ++--------------- 1 file changed, 2 insertions(+), 15 deletions(-) (limited to 'elisp/geiser-mode.el') diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index 3c2f1a9..e308c07 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -30,8 +30,8 @@ (require 'geiser-completion) (require 'geiser-edit) (require 'geiser-autodoc) +(require 'geiser-debug) (require 'geiser-eval) -(require 'geiser-popup) (require 'geiser-custom) (require 'geiser-base) @@ -57,19 +57,6 @@ ;;; Auxiliary functions: -(geiser-popup--define mode "*Geiser evaluation results*" scheme-mode) - -(defun geiser-eval--display-error (err output) - (if (not output) - (message (geiser-eval--error-str err)) - (geiser-mode--with-buffer - (erase-buffer) - (insert ";; " (geiser-eval--error-str err)) - (newline 2) - (insert output) - (newline)) - (geiser-mode--pop-to-buffer))) - (defun geiser-eval--send-region (compile start end and-go) (let* ((str (buffer-substring-no-properties start end)) (code `(,(if compile :comp :eval) (:scm ,str))) @@ -81,7 +68,7 @@ (goto-char (point-max))) (if (not err) (message (format "=> %s" (geiser-eval--retort-result ret))) - (geiser-eval--display-error err (geiser-eval--retort-output ret))))) + (geiser-debug--display-retort str ret)))) ;;; Evaluation commands: -- cgit v1.2.3