diff options
| author | Robin Templeton <robin@terpri.org> | 2014-09-23 00:58:22 -0400 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-04 19:20:56 +0200 |
| commit | 96f404d0be9daa3a7a89ab7abd37d62bb3b7fd5a (patch) | |
| tree | 4f6595228e75749e532708f1e63a7883ecd5c4d3 | |
| parent | 5d7faa88a2746a5cbbf031d7827810ebaa31473e (diff) | |
guile-backtrace function
* module/language/elisp/boot.el (guile-backtrace): New function
extracted from `backtrace'.
(backtrace): Use it.
| -rw-r--r-- | module/language/elisp/boot.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el index 27af815ac..c0cfb03cd 100644 --- a/module/language/elisp/boot.el +++ b/module/language/elisp/boot.el @@ -767,9 +767,9 @@ (args (funcall (@ (guile) frame-arguments) frame))) (cons t (cons pname args)))) -(defun backtrace () +(defun guile-backtrace (&rest args) (interactive) - (let* ((stack (funcall (@ (guile) make-stack) t)) + (let* ((stack (apply (@ (guile) make-stack) t args)) (frame (funcall (@ (guile) stack-ref) stack 1)) (space (funcall (@ (guile) integer->char) 32))) (while frame @@ -783,6 +783,9 @@ (setq frame (funcall (@ (guile) frame-previous) frame))) nil)) +(defun backtrace () + (guile-backtrace)) + (defun %set-eager-macroexpansion-mode (ignore) nil) |