call-with-input-file   scheme


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

Implementation

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


Back to Index