[Guile-commits] 30/36: guile-backtrace function

[Christopher Allan Webber]

cwebber pushed a commit to branch wip-elisp-rebased
in repository guile.

commit e8daded31fe1cb5069ceb24896cc04f71d0270ba
Author: Robin Templeton <robin@terpri.org>
AuthorDate: Tue Sep 23 00:58:22 2014 -0400

    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 27af815..c0cfb03 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)