Re: run/port for input

[stktrc <stktrc@yahoo.com>]

ZHAO Wei <zhaoway@public1.ptt.js.cn> writes:

> Can I have something as nice as (run/port ...) but for input instead
> of for output? Thank you!

Below is a modification of run/port taken from the SCSH sources to
produce an input port instead.

(define (run/inport* thunk)
  (receive
   (r w) (pipe)
   (fork (lambda ()
           (close w)
           (move->fdes r 0)
           (with-current-input-port* r thunk)))
   (close r)
   w))

(define-syntax run/inport
  (syntax-rules ()
    ((_ . epf) (run/inport* (lambda () (exec-epf . epf))))))