From dd9b612be4b34adeb36ded696c2295217e6c48d6 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 18 Dec 2018 17:32:57 -0500 Subject: [PATCH] Disable debug printing --- cyclone.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/cyclone.scm b/cyclone.scm index 3542eaae..011d76a1 100644 --- a/cyclone.scm +++ b/cyclone.scm @@ -28,12 +28,13 @@ ; Placeholder for future enhancement to show elapsed time by phase: (define *start* (current-second)) ;; TODO: make this a cmd line option -(define *report-elapsed* #t) +(define *report-elapsed* #f) (define (report:elapsed label) - (display "Elapsed is " (current-error-port)) - (display (- (current-second) *start*) (current-error-port)) - (display (string-append " at " label) (current-error-port)) - (newline (current-error-port))) + (when *report-elapsed* + (display "Elapsed is " (current-error-port)) + (display (- (current-second) *start*) (current-error-port)) + (display (string-append " at " label) (current-error-port)) + (newline (current-error-port)))) ;; Code emission.