current-trace-procedures needs to be a store, not a parameter, because spawns capture the parameterization too early and the scoping of tracing should be hierarchy-based
This commit is contained in:
parent
7d52e24a35
commit
7880b2ba28
|
@ -13,6 +13,7 @@
|
||||||
|
|
||||||
(require "hierarchy.rkt")
|
(require "hierarchy.rkt")
|
||||||
(require "pretty.rkt")
|
(require "pretty.rkt")
|
||||||
|
(require "store.rkt")
|
||||||
|
|
||||||
;; A NotificationType is one of
|
;; A NotificationType is one of
|
||||||
;; -- 'turn-begin
|
;; -- 'turn-begin
|
||||||
|
@ -51,7 +52,7 @@
|
||||||
|
|
||||||
(struct trace-notification (source sink type detail) #:prefab)
|
(struct trace-notification (source sink type detail) #:prefab)
|
||||||
|
|
||||||
(define current-trace-procedures (make-parameter '()))
|
(define current-trace-procedures (make-store #:default-box (box '())))
|
||||||
|
|
||||||
(define-syntax-rule (notify! src snk typ det)
|
(define-syntax-rule (notify! src snk typ det)
|
||||||
(let ((trace-procedures (current-trace-procedures)))
|
(let ((trace-procedures (current-trace-procedures)))
|
||||||
|
|
Loading…
Reference in New Issue