- debug-print key valueprocedure
- debug-print key value outprocedure
Print key-value pairs if the parameter `debug?' is true.
- key
- The key to print
- value
- The value to print
- out
- The port to print to
(define debug-print (case-lambda ((key value) (debug-print key value #t)) ((key value out) (if (debug?) (format out "~a: ~a~%" key value)))))