From: Robin Templeton <robin@terpri.org>
Date: Tue, 23 Sep 2014 04:58:22 +0000 (-0400)
Subject: guile-backtrace function
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/a930be6f0f0d1594873c7eb9d2316ecf926da67d

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