mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

guile-backtrace function

Browse source 
* module/language/elisp/boot.el (guile-backtrace): New function
  extracted from `backtrace'.
  (backtrace): Use it.
This commit is contained in:
Robin Templeton 2014-09-23 00:58:22 -04:00 • committed by Christine Lemmer-Webber
parent 1de0e2a1d4
commit 6dba232fd9
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/language/elisp/boot.el
View file

@ -767,9 +767,9 @@
(args (funcall (@ (guile) frame-arguments) frame))) (args (funcall (@ (guile) frame-arguments) frame)))
(cons t (cons pname args)))) (cons t (cons pname args))))
(defun backtrace () (defun guile-backtrace (&rest args)
(interactive) (interactive)
(let* ((stack (funcall (@ (guile) make-stack) t)) (let* ((stack (apply (@ (guile) make-stack) t args))
(frame (funcall (@ (guile) stack-ref) stack 1)) (frame (funcall (@ (guile) stack-ref) stack 1))
(space (funcall (@ (guile) integer->char) 32))) (space (funcall (@ (guile) integer->char) 32)))
(while frame (while frame
@ -783,6 +783,9 @@
(setq frame (funcall (@ (guile) frame-previous) frame))) (setq frame (funcall (@ (guile) frame-previous) frame)))
nil)) nil))
(defun backtrace ()
(guile-backtrace))
(defun %set-eager-macroexpansion-mode (ignore) (defun %set-eager-macroexpansion-mode (ignore)
nil) nil)