Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Disable debug printing

Browse source
This commit is contained in:
Justin Ethier 2018-12-18 17:32:57 -05:00
parent 06d900bea9
commit dd9b612be4
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
cyclone.scm
View file

@ -28,12 +28,13 @@
; Placeholder for future enhancement to show elapsed time by phase: ; Placeholder for future enhancement to show elapsed time by phase:
(define *start* (current-second)) (define *start* (current-second))
;; TODO: make this a cmd line option ;; TODO: make this a cmd line option
(define *report-elapsed* #t) (define *report-elapsed* #f)
(define (report:elapsed label) (define (report:elapsed label)
(display "Elapsed is " (current-error-port)) (when *report-elapsed*
(display (- (current-second) *start*) (current-error-port)) (display "Elapsed is " (current-error-port))
(display (string-append " at " label) (current-error-port)) (display (- (current-second) *start*) (current-error-port))
(newline (current-error-port))) (display (string-append " at " label) (current-error-port))
(newline (current-error-port))))
;; Code emission. ;; Code emission.