11 lines
256 B
Racket
11 lines
256 B
Racket
#lang racket/base
|
|
(provide verbose vprintf)
|
|
(require (for-syntax racket/base))
|
|
(define verbose (make-parameter #f))
|
|
|
|
;; like printf but only in verbose mode
|
|
(define o (current-output-port))
|
|
(define (vprintf . a)
|
|
(when (verbose)
|
|
(apply fprintf o a)))
|