From 3bdace6535eeec6afe83001458ee9401def021e7 Mon Sep 17 00:00:00 2001 From: Sam Caldwell Date: Wed, 1 Jun 2022 14:36:56 -0400 Subject: [PATCH] typed: reorder operations when running spin scripts For some reason it was getting stuck on larger spin outputs --- racket/typed/syndicate/compile-spin.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/racket/typed/syndicate/compile-spin.rkt b/racket/typed/syndicate/compile-spin.rkt index fc7da36..f56239c 100644 --- a/racket/typed/syndicate/compile-spin.rkt +++ b/racket/typed/syndicate/compile-spin.rkt @@ -897,10 +897,9 @@ Examples: (define (run-script cmd args) (match-define (list stdo stdin pid stderr ctrl) (apply process* cmd args)) - (ctrl 'wait) - (define script-completed? (equal? (ctrl 'status) 'done-ok)) (define script-output (port->string stdo)) (define script-err (port->string stderr)) + (define script-completed? (equal? (ctrl 'status) 'done-ok)) (close-output-port stdin) (values script-completed? script-output script-err))