From 7880b2ba284bae9938cca35feb1a6e21427f1663 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 2 Sep 2016 17:55:46 +0100 Subject: [PATCH] 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 --- racket/syndicate/trace.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/syndicate/trace.rkt b/racket/syndicate/trace.rkt index e39962e..091875c 100644 --- a/racket/syndicate/trace.rkt +++ b/racket/syndicate/trace.rkt @@ -13,6 +13,7 @@ (require "hierarchy.rkt") (require "pretty.rkt") +(require "store.rkt") ;; A NotificationType is one of ;; -- 'turn-begin @@ -51,7 +52,7 @@ (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) (let ((trace-procedures (current-trace-procedures)))