Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

allow tracing macros

Browse source
This commit is contained in:
Alex Shinn 2021-05-06 10:17:03 +09:00
parent 68a81c8aff
commit 249f4f21ba
1 changed files with 19 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lib/chibi/trace.scm
View file

@ -26,13 +26,25 @@
(define (make-tracer cell)
(let ((proc (cdr cell)))
(lambda args
(show-trace cell args)
(active-trace-depth (+ (active-trace-depth) 1))
(let ((res (apply proc args)))
(active-trace-depth (- (active-trace-depth) 1))
(show-trace-result cell args res)
res))))
(if (macro? proc)
(make-macro
(lambda (expr use-env mac-env)
(show-trace cell (strip-syntactic-closures (cdr expr)))
(active-trace-depth (+ (active-trace-depth) 1))
(let ((res ((macro-procedure proc) expr use-env mac-env)))
(active-trace-depth (- (active-trace-depth) 1))
(show-trace-result cell
(strip-syntactic-closures (cdr expr))
(strip-syntactic-closures res))
res))
(macro-env proc))
(lambda args
(show-trace cell args)
(active-trace-depth (+ (active-trace-depth) 1))
(let ((res (apply proc args)))
(active-trace-depth (- (active-trace-depth) 1))
(show-trace-result cell args res)
res)))))
;;> Write a trace of all calls to the procedure \var{id} to
;;> \scheme{(current-error-port)}.