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

Fix trace-calls-to-procedure

Browse source 
Fixes #43102 and duplicate #48412.
This commit is contained in:
Robin Green 2021-05-19 16:40:16 +02:00 • committed by Daniel Llorens
parent 02439a1240
commit f9f55b9ce7
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/trace.scm
View file

@ -73,7 +73,7 @@
(max-indent (- width 40))) (max-indent (- width 40)))
(define (apply-handler frame depth) (define (apply-handler frame depth)
(print-application frame depth width prefix max-indent)) (print-application frame depth width prefix max-indent))
(define (return-handler frame depth values) (define (return-handler frame depth)
(print-return frame depth width prefix max-indent)) (print-return frame depth width prefix max-indent))
(trap-calls-to-procedure proc apply-handler return-handler)) (trap-calls-to-procedure proc apply-handler return-handler))