From b02375309114e8b9636d1b03e38f966e5e92a5de Mon Sep 17 00:00:00 2001 From: Sam Caldwell Date: Mon, 25 Jan 2021 11:13:12 -0500 Subject: [PATCH] provide an interface for msd tracing --- racket/syndicate/trace/msd.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/racket/syndicate/trace/msd.rkt b/racket/syndicate/trace/msd.rkt index 9342f03..6248fc0 100644 --- a/racket/syndicate/trace/msd.rkt +++ b/racket/syndicate/trace/msd.rkt @@ -1,5 +1,7 @@ #lang racket/base +(provide start-tracing!) + (require racket/match) (require racket/set) (require racket/string) @@ -12,7 +14,7 @@ (define-logger syndicate/trace/msd) -(let ((output-filename (getenv "SYNDICATE_MSD"))) +(define (start-tracing! output-filename) (when output-filename (define names (make-hash (list (cons '() "'ground")))) (define (open-output cause) @@ -104,3 +106,5 @@ (loop))))) (channel-get ch) (current-trace-procedures (cons msd-trace (current-trace-procedures)))))) + +(start-tracing! (getenv "SYNDICATE_MSD"))