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

elisp: boot: Replace removed FRAME-PROCEDURE with FRAME-PROCEDURE-NAME.

Browse source 
This is a follow-up to commit e139accb530c970c989b3d53d5a8a22fd75437fc.

* module/language/elisp/boot.el (backtrace-frame, guile-backtrace): Use
FRAME-PROCEDURE-NAME instead of FRAME-PROCEDURE.

(cherry picked from commit 3d7db7c2175d91629d4133ae0b79f3c9c2ce6191)
This commit is contained in:
Ricardo Wurmus 2020-05-19 00:16:10 +02:00 • committed by Christine Lemmer-Webber
parent 726f34b35d
commit 4b9b827773
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -760,10 +760,7 @@
(defun backtrace-frame (nframes) (defun backtrace-frame (nframes)
(let* ((stack (funcall (@ (guile) make-stack) t)) (let* ((stack (funcall (@ (guile) make-stack) t))
(frame (stack-ref stack nframes)) (frame (stack-ref stack nframes))
(proc (funcall (@ (guile) frame-procedure) frame)) (pname (funcall (@ (guile) frame-procedure-name) frame))
(pname (or (and (%functionp proc)
(funcall (@ (guile) procedure-name) proc))
proc))
(args (funcall (@ (guile) frame-arguments) frame))) (args (funcall (@ (guile) frame-arguments) frame)))
(cons t (cons pname args)))) (cons t (cons pname args))))
@ -774,10 +771,7 @@
(space (funcall (@ (guile) integer->char) 32))) (space (funcall (@ (guile) integer->char) 32)))
(while frame (while frame
(princ (string 32 32)) (princ (string 32 32))
(let ((proc (funcall (@ (guile) frame-procedure) frame))) (prin1 (funcall (@ (guile) frame-procedure-name) frame))
(prin1 (or (and (%functionp proc)
(funcall (@ (guile) procedure-name) proc))
proc)))
(prin1 (funcall (@ (guile) frame-arguments) frame)) (prin1 (funcall (@ (guile) frame-arguments) frame))
(terpri) (terpri)
(setq frame (funcall (@ (guile) frame-previous) frame))) (setq frame (funcall (@ (guile) frame-previous) frame)))