From e9b1983408023360b379fd716bc34bdab90e12c1 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 9 May 2019 11:43:34 +0100 Subject: [PATCH] Move command-line scripts into submodule main, so tests don't get stuck --- syndicate/bin/syndicate-server-debug.rkt | 15 ++++++++------- syndicate/bin/syndicate-server.rkt | 3 ++- 2 files changed, 10 insertions(+), 8 deletions(-) diff --git a/syndicate/bin/syndicate-server-debug.rkt b/syndicate/bin/syndicate-server-debug.rkt index c841919..f69f963 100644 --- a/syndicate/bin/syndicate-server-debug.rkt +++ b/syndicate/bin/syndicate-server-debug.rkt @@ -1,8 +1,9 @@ #lang racket -(require racket/logging) -(with-logging-to-port (current-error-port) - (lambda () - (dynamic-require '(submod imperative-syndicate/distributed main) #f)) - 'debug 'syndicate/distributed - 'debug 'syndicate/federation - ) +(module+ main + (require racket/logging) + (with-logging-to-port (current-error-port) + (lambda () + (dynamic-require '(submod imperative-syndicate/distributed main) #f)) + 'debug 'syndicate/distributed + 'debug 'syndicate/federation + )) diff --git a/syndicate/bin/syndicate-server.rkt b/syndicate/bin/syndicate-server.rkt index ed762d4..78c3f3b 100644 --- a/syndicate/bin/syndicate-server.rkt +++ b/syndicate/bin/syndicate-server.rkt @@ -1,2 +1,3 @@ #lang racket -(dynamic-require '(submod imperative-syndicate/distributed main) #f) +(module+ main + (dynamic-require '(submod imperative-syndicate/distributed main) #f))