From a6edd9b5e9b367da0dc049faf2f0a65c1be0ee27 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 3 Nov 1998 22:43:10 +0000 Subject: [PATCH] ... original commit: ecb86a02b755e737e1268683b65f7b74c6cfe9d9 --- collects/framework/framework.ss | 1 + collects/tests/framework/framework-test-engine.ss | 5 ++++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/framework/framework.ss b/collects/framework/framework.ss index fe17c951..1edfc822 100644 --- a/collects/framework/framework.ss +++ b/collects/framework/framework.ss @@ -10,3 +10,4 @@ [C : mzlib:core^ ((require-library "corer.ss"))] [F : framework^ ((require-library "frameworkr.ss" "framework") C M)]) (export))) +'done \ No newline at end of file diff --git a/collects/tests/framework/framework-test-engine.ss b/collects/tests/framework/framework-test-engine.ss index bee29fab..3466c406 100644 --- a/collects/tests/framework/framework-test-engine.ss +++ b/collects/tests/framework/framework-test-engine.ss @@ -1,5 +1,8 @@ (thread - (letrec ([restart + (letrec ([namespace (make-namespace)] + [_ (parameterize ([current-namespace namespace]) + (require-library "pconvert.ss"))] + [restart (lambda () (let*-values ([(in out) (tcp-connect "localhost" (load-relative "receive-sexps-port.ss"))] [(continue) (make-semaphore 0)]