Remove unused commented-out code

2017-08-13 20:52:52 -04:00 · 2017-08-13 20:52:52 -04:00 · fdcd9b9388
parent e2d1ae853c
commit fdcd9b9388
1 changed files with 0 additions and 4 deletions
--- a/racket/syndicate/trace/msd.rkt
+++ b/racket/syndicate/trace/msd.rkt
@ -19,10 +19,6 @@
 (let ((output-filename (getenv "SYNDICATE_MSD")))
  (when output-filename
    (let ((fh (open-output-file output-filename #:exists 'replace)))
-      ;; (fprintf fh "digraph Syndicate {\n")
-      ;; (plumber-add-flush! (current-plumber) (lambda (_handle)
-      ;;                                         (fprintf fh "}\n")
-      ;;                                         (close-output-port fh)))
      (define (write-event! . pieces)
        (write pieces fh)
        (newline fh))