6 lines
127 B
Scheme
6 lines
127 B
Scheme
|
|
||
|
|
(define (call-with-output-string f)
|
||
|
|
(let ((port (open-output-string)))
|
||
|
|
(let () (f port))
|
||
|
|
(get-output-string port)))
|