1. Sandbox
    1. debug?
    2. debug-print

Sandbox

I'm playing around with svnwiki syntax so we can do something reasonable with cock's svnwiki driver.

debug?

[parameter] debug? → #f

Should we print debugging information to stdout? See debug-print.

(define debug? (make-parameter #t))

debug-print

[procedure] (debug-print key value) → unspecified
[procedure] (debug-print key value out) → unspecified

Print key-value pairs if the parameter debug? is true.

key
The key to print
value
The value to print
out
The port whereto to print
(define debug-print
  (case-lambda
    ((key value) (debug-print key value #t))
    ((key value out) (if (debug?) (format out "~a: ~a~%" key value)))))