diff options
author | Robin Templeton <robin@terpri.org> | 2014-09-23 00:58:22 -0400 |
---|---|---|
committer | Christine Lemmer-Webber <cwebber@dustycloud.org> | 2021-10-19 18:10:05 -0400 |
commit | 6dba232fd9c7ac7d0c5bbcc842bdd1e0f9298e70 (patch) | |
tree | f047960929b0936604716c24c9ce0275d9de4ff9 | |
parent | 1de0e2a1d4848aea001db9aee5d9ce800087ea5b (diff) | |
download | guile-6dba232fd9c7ac7d0c5bbcc842bdd1e0f9298e70.tar.gz |
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) |