(define ipc:sync-receive (lambda (process id func . args) (let ((result (apply (eval func) args))) (ipc:call-async process 'ipc:run-active-label id result))))