Sandbox

Sandbox
1. debug?
2. debug-print

I'm playing around with svnwiki syntax so we can do something reasonable with hahn'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)))))