From 2924bf0d2d62c991aa48fb640f001361893f9f08 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 2 Nov 1998 18:24:24 +0000 Subject: [PATCH] ... original commit: 05972f6cc305a5022e6514e47a2eee4aaf947ae5 --- collects/tests/framework/framework-test-engine.ss | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/collects/tests/framework/framework-test-engine.ss b/collects/tests/framework/framework-test-engine.ss index ff7531b1..bfcada59 100644 --- a/collects/tests/framework/framework-test-engine.ss +++ b/collects/tests/framework/framework-test-engine.ss @@ -1,21 +1,20 @@ -(printf "creating thread~n") +(printf "mred:creating thread~n") (thread (letrec ([restart (lambda () - (printf "initializing loop~n") - (let*-values ([(listener) (tcp-listen (require-library "receive-sexps-port.ss" "tests" "framework"))] - [(in out) (tcp-accept listener)] + (printf "mred:initializing loop~n") + (let*-values ([(in out) (tcp-connect "localhost" (load-relative "receive-sexps-port.ss"))] [(continue) (make-semaphore 0)] [(error) #f] [(answer) (void)]) + (printf "mred:made connection~n") (let loop () (let ([sexp (read in)]) (if (eof-object? sexp) (begin (close-input-port in) (close-output-port out) - (tcp-close listener) - (restart)) + (exit)) (begin (queue-callback (lambda () (set! error #f)