thin-provisioning-tools/functional-tests/fmt/string-ports.scm

6 lines
127 B
Scheme
Raw Normal View History

(define (call-with-output-string f)
(let ((port (open-output-string)))
(let () (f port))
(get-output-string port)))