15 lines
237 B
Scheme
15 lines
237 B
Scheme
#lang scheme/base
|
|
|
|
(require (for-syntax scheme/base))
|
|
|
|
(provide debug)
|
|
|
|
(define-for-syntax verbose? #t)
|
|
(define-syntax (debug stx)
|
|
(if verbose?
|
|
(syntax-case stx ()
|
|
[(_ str x ...)
|
|
#'(printf str x ...)])
|
|
#'(void)))
|
|
|