summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2020-05-19 00:16:10 +0200
committerRicardo Wurmus <rekado@elephly.net>2020-05-19 00:16:10 +0200
commit3d7db7c2175d91629d4133ae0b79f3c9c2ce6191 (patch)
tree20becf3327b3966ce11ca633a04d8d573ef3f6c6
parentc536c297683178e6eadc0a60d1e53f8c510db3c9 (diff)
elisp: boot: Replace removed FRAME-PROCEDURE with FRAME-PROCEDURE-NAME.wip-elisp
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.
-rw-r--r--module/language/elisp/boot.el10
1 files changed, 2 insertions, 8 deletions
diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el
index c0cfb03cd..70af251c4 100644
--- a/module/language/elisp/boot.el
+++ b/module/language/elisp/boot.el
@@ -760,10 +760,7 @@
(defun backtrace-frame (nframes)
(let* ((stack (funcall (@ (guile) make-stack) t))
(frame (stack-ref stack nframes))
- (proc (funcall (@ (guile) frame-procedure) frame))
- (pname (or (and (%functionp proc)
- (funcall (@ (guile) procedure-name) proc))
- proc))
+ (pname (funcall (@ (guile) frame-procedure-name) frame))
(args (funcall (@ (guile) frame-arguments) frame)))
(cons t (cons pname args))))
@@ -774,10 +771,7 @@
(space (funcall (@ (guile) integer->char) 32)))
(while frame
(princ (string 32 32))
- (let ((proc (funcall (@ (guile) frame-procedure) frame)))
- (prin1 (or (and (%functionp proc)
- (funcall (@ (guile) procedure-name) proc))
- proc)))
+ (prin1 (funcall (@ (guile) frame-procedure-name) frame))
(prin1 (funcall (@ (guile) frame-arguments) frame))
(terpri)
(setq frame (funcall (@ (guile) frame-previous) frame)))