; imagine spawn-scheme-process

(define-syntax
  (syntax-rules ()
    ((process-delay expr)
     (let ((result-port (spawn-scheme-process (lambda () expr))))
       (delay (read result-port))))))