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)

0000: 0a 28 64 65 66 69 6e 65 20 28 63 61 6c 6c 2d 77  .(define (call-w
0010: 69 74 68 2d 6f 75 74 70 75 74 2d 73 74 72 69 6e  ith-output-strin
0020: 67 20 66 29 0a 20 20 28 6c 65 74 20 28 28 70 6f  g f).  (let ((po
0030: 72 74 20 28 6f 70 65 6e 2d 6f 75 74 70 75 74 2d  rt (open-output-
0040: 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 6c  string))).    (l
0050: 65 74 20 28 29 20 28 66 20 70 6f 72 74 29 29 0a  et () (f port)).
0060: 20 20 20 20 28 67 65 74 2d 6f 75 74 70 75 74 2d      (get-output-
0070: 73 74 72 69 6e 67 20 70 6f 72 74 29 29 29 0a     string port))).