summaryrefslogtreecommitdiff
path: root/elisp/geiser-guile.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-12 15:41:06 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-12 15:41:06 +0100
commit9d26fb34c24677e1db45a96ec88cca94ea1c4542 (patch)
treece80eabed8488f92f1194802092775f761fbcf06 /elisp/geiser-guile.el
parent6d52afb6318b2a826b7ba4d7ee76755fdf144df2 (diff)
downloadgeiser-guile-9d26fb34c24677e1db45a96ec88cca94ea1c4542.tar.gz
geiser-guile-9d26fb34c24677e1db45a96ec88cca94ea1c4542.tar.bz2
Debugger support, and Guile using it
Diffstat (limited to 'elisp/geiser-guile.el')
-rw-r--r--elisp/geiser-guile.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index afb7992..3d42d24 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -108,7 +108,7 @@ This function uses `geiser-guile-init-file' if it exists."
;;(defconst geiser-guile--prompt-regexp "^[^() \n]+@([^)]*?)> ")
(defconst geiser-guile--prompt-regexp "[^@()]+@([^)]*?)> ")
(defconst geiser-guile--debugger-prompt-regexp
- "^[^@()]+@([^)]*?) \\[[0-9]+\\]> ")
+ "[^@()]+@([^)]*?) \\[[0-9]+\\]> ")
;;; Evaluation support:
@@ -117,7 +117,7 @@ This function uses `geiser-guile-init-file' if it exists."
(defun geiser-guile--geiser-procedure (proc &rest args)
(case proc
- ((eval compile) (format ",geiser-eval %s %s%s\n"
+ ((eval compile) (format ",geiser-eval %s %s%s"
(or (car args) "#f")
(geiser-guile--linearize-args (cdr args))
(if (cddr args) "" " ()")))
@@ -178,6 +178,7 @@ This function uses `geiser-guile-init-file' if it exists."
(if geiser-guile-debug-show-bt-p "bt" "fr"))))
(compilation-forget-errors)
(goto-char (point-max))
+ (geiser-repl--swap)
(comint-send-string nil ",geiser-newline\n")
(comint-send-string nil ",error-message\n")
(comint-send-string nil bt-cmd)
@@ -226,7 +227,7 @@ This function uses `geiser-guile-init-file' if it exists."
(defun geiser-guile--resolve-file-x ()
(let ((f (geiser-guile--resolve-file (match-string-no-properties 1))))
- (and f (list f))))
+ (and (stringp f) (list f))))
;;; REPL startup