diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-01 16:41:09 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-01 16:41:09 +0100 |
| commit | af150090685e5e456bc0788fb45703b6eace053d (patch) | |
| tree | 37c51fcac5362359c91bb7c2e791f3a9020b0e1c /elisp/geiser-debug.el | |
| parent | 3990c6476ab7cee03f4bf89827df7a23adf4d794 (diff) | |
| download | geiser-chez-af150090685e5e456bc0788fb45703b6eace053d.tar.gz geiser-chez-af150090685e5e456bc0788fb45703b6eace053d.tar.bz2 | |
Some refactoring and new ge:macroexpand.
Diffstat (limited to 'elisp/geiser-debug.el')
| -rw-r--r-- | elisp/geiser-debug.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index c67a6aa..20db436 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -92,6 +92,13 @@ (insert "In expression:\n")) (insert (format "%s%s\n" (make-string offset ?\ ) description)))) +(defun geiser-debug--send-region (compile start end and-go) + (let* ((ret (geiser-eval--send-region compile start end and-go)) + (err (geiser-eval--retort-error ret))) + (if (not err) + (message (format "=> %s" (geiser-eval--retort-result ret))) + (geiser-debug--display-retort str ret)))) + (provide 'geiser-debug) ;;; geiser-debug.el ends here |