diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-12 15:41:06 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-12 15:41:06 +0100 |
| commit | c4287cdbb796507575a71a2bfc589f0f107f436f (patch) | |
| tree | ae2be0f6ffe5b6ae85a3ad1ce8de898e77d2ec2e /elisp/geiser-guile.el | |
| parent | e13172c2855cc7fcb30c6dac231210c6e8534b18 (diff) | |
| download | geiser-guile-c4287cdbb796507575a71a2bfc589f0f107f436f.tar.gz geiser-guile-c4287cdbb796507575a71a2bfc589f0f107f436f.tar.bz2 | |
Debugger support, and Guile using it
Diffstat (limited to 'elisp/geiser-guile.el')
| -rw-r--r-- | elisp/geiser-guile.el | 7 |
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 |