diff options
| author | jao <jao@gnu.org> | 2021-12-20 20:51:34 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-12-20 20:51:34 +0000 |
| commit | 0897f31a3e3c06a04e613f1bac888d045eea0c48 (patch) | |
| tree | 97c5bf991d90c82f99a585a319f7340ec983d93a /elisp/geiser-eval.el | |
| parent | 0a7d55f34f09776a16d3e81521ee8cd081f3b717 (diff) | |
| download | geiser-0897f31a3e3c06a04e613f1bac888d045eea0c48.tar.gz geiser-0897f31a3e3c06a04e613f1bac888d045eea0c48.tar.bz2 | |
Better handling of (:debug) evaluations
Diffstat (limited to 'elisp/geiser-eval.el')
| -rw-r--r-- | elisp/geiser-eval.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el index 2ee451c..1019e55 100644 --- a/elisp/geiser-eval.el +++ b/elisp/geiser-eval.el @@ -96,6 +96,9 @@ module-exports, autodoc, callers, callees and generic-methods.") (defsubst geiser-eval--ge (proc args) (apply 'geiser-eval--form (cons proc (mapcar 'geiser-eval--scheme-str args)))) +(defsubst geiser-eval--debug (args) + (geiser-eval--ge 'debug args)) + (defun geiser-eval--scheme-str (code) (cond ((null code) "'()") ((eq code :f) "#f") |