diff options
| -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) |