diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-12-18 00:24:16 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-12-18 00:24:16 +0100 |
| commit | 9c85f8c16b82531fa4fc86412071782d2d0b842e (patch) | |
| tree | 0114de44a130e042daa88ed7cb1dac09e66b6cd2 | |
| parent | 1b8cc5bb9a075e30e296c953aa3f8eaa2583b327 (diff) | |
| download | geiser-chez-9c85f8c16b82531fa4fc86412071782d2d0b842e.tar.gz geiser-chez-9c85f8c16b82531fa4fc86412071782d2d0b842e.tar.bz2 | |
Guile: bug in backtrace display fixed.
| -rw-r--r-- | elisp/geiser-debug.el | 3 | ||||
| -rw-r--r-- | elisp/geiser-guile.el | 19 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 3 |
3 files changed, 14 insertions, 11 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index 7a9f915..9b31968 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -45,7 +45,8 @@ ;;; Displaying retorts -(geiser-impl--define-caller geiser-debug--display-error display-error (module key message) +(geiser-impl--define-caller geiser-debug--display-error + display-error (module key message) "This method takes 3 parameters (a module name, the error key, and the accompanying error message) and should display (in the current buffer) a formatted version of the error. If the diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index 332454f..c173f4d 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -109,15 +109,16 @@ This function uses `geiser-guile-init-file' if it exists." "^In \\([^\n:]+\\):\n *\\([[:digit:]]+\\|\\?\\):") (defun geiser-guile--find-files () - (save-excursion - (while (re-search-forward geiser-guile--file-rx nil t) - (let ((file (match-string 1)) - (beg (match-beginning 1)) - (end (match-end 1)) - (line (string-to-number (or (match-string 2) "0")))) - (let ((file (geiser-guile--resolve-file file))) - (when file - (geiser-edit--make-link beg end file line 0))))))) + (with--geiser-implementation 'guile + (save-excursion + (while (re-search-forward geiser-guile--file-rx nil t) + (let ((file (match-string 1)) + (beg (match-beginning 1)) + (end (match-end 1)) + (line (string-to-number (or (match-string 2) "0")))) + (let ((file (geiser-guile--resolve-file file))) + (when file + (geiser-edit--make-link beg end file line 0)))))))) (defun geiser-guile--display-error (module key msg) (when key diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index ca6064f..badd578 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -187,7 +187,8 @@ you at that point.") "Start a new Geiser REPL." (interactive (list (or (geiser-repl--only-impl-p) - (and (eq major-mode 'geiser-repl-mode) geiser-impl--implementation) + (and (eq major-mode 'geiser-repl-mode) + geiser-impl--implementation) (geiser-repl--read-impl "Start Geiser for scheme implementation: ")))) (geiser-repl--start-repl impl)) |