From d1286b43f0116a8c417542d43eeb806e1be19919 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 12 Oct 2023 16:51:53 +0200 Subject: [PATCH] Preserve service submodules for embedding via `raco exe` --- syndicate/service.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/syndicate/service.rkt b/syndicate/service.rkt index 56002e0..8ca8fda 100644 --- a/syndicate/service.rkt +++ b/syndicate/service.rkt @@ -47,6 +47,7 @@ [(_ [dataspace] body ...) (module+ #%service (provide #%service) + (module+ declare-preserve-for-embedding) (define (#%service service-name dataspace) (syntax-parameterize ([registry-dataspace (make-rename-transformer #'dataspace)]) (log-syndicate/service-debug "Providing ~v" (ServiceState service-name (State-ready)))