guile-backtrace function

* module/language/elisp/boot.el (guile-backtrace): New function
  extracted from `backtrace'.
  (backtrace): Use it.

diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el
index 27af815..b284fe8 100644 (file)
--- 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)