call-with-output-file   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/init.xtm

Implementation

(define (call-with-output-file s p)
  (let ((outport (open-output-file s)))
    (if (eq? outport #f)
        #f
        (let ((res (p outport)))
          (close-output-port outport)
          res))))


Back to Index