From a930be6f0f0d1594873c7eb9d2316ecf926da67d Mon Sep 17 00:00:00 2001 From: Robin Templeton Date: Tue, 23 Sep 2014 00:58:22 -0400 Subject: [PATCH] guile-backtrace function * module/language/elisp/boot.el (guile-backtrace): New function extracted from `backtrace'. (backtrace): Use it. --- module/language/elisp/boot.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el index 27af815ac..b284fe833 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 t)) + (defun %set-eager-macroexpansion-mode (ignore) nil) -- 2.20.1