From 955955883111e18dcf65d91f215c11e624021d62 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 2 Feb 2023 21:56:12 +0100 Subject: [PATCH] Hack to allow external module paths to be symbols instead of strings --- .../preserves/preserves-schema/bin/preserves-schema-rkt.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/implementations/racket/preserves/preserves-schema/bin/preserves-schema-rkt.rkt b/implementations/racket/preserves/preserves-schema/bin/preserves-schema-rkt.rkt index 015f611..c3e9fe9 100644 --- a/implementations/racket/preserves/preserves-schema/bin/preserves-schema-rkt.rkt +++ b/implementations/racket/preserves/preserves-schema/bin/preserves-schema-rkt.rkt @@ -136,6 +136,8 @@ (error '--module "Argument must be Namespace=path: ~v" namespace=path)) (let* ((namespace-str (substring namespace=path 0 i)) (path-str (substring namespace=path (+ i 1)))) + (when (string-prefix? path-str ":") + (set! path-str (string->symbol (substring path-str 1)))) (set! additional-modules (cons (list (map string->symbol (string-split namespace-str ".")) path-str)