Remove unused commented-out code
This commit is contained in:
parent
e2d1ae853c
commit
fdcd9b9388
|
@ -19,10 +19,6 @@
|
||||||
(let ((output-filename (getenv "SYNDICATE_MSD")))
|
(let ((output-filename (getenv "SYNDICATE_MSD")))
|
||||||
(when output-filename
|
(when output-filename
|
||||||
(let ((fh (open-output-file output-filename #:exists 'replace)))
|
(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)
|
(define (write-event! . pieces)
|
||||||
(write pieces fh)
|
(write pieces fh)
|
||||||
(newline fh))
|
(newline fh))
|
||||||
|
|
Loading…
Reference in New Issue