Artifact b7e102ec9f513b591c12529df49d8c9ca5453c56:

• File fmt/string-ports.scm — part of check-in [80c8c83034] at 2016-07-07 18:11:39 on branch trunk — initial import (user: ovenpasta@pizzahack.eu size: 127)

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