From c27aa7579e19828aa7a66c6eeed598fc2d054287 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 8 Mar 2021 15:31:50 +0100 Subject: [PATCH] Repair detection of "easily-printable" symbols --- implementations/racket/preserves/preserves/write-text.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/implementations/racket/preserves/preserves/write-text.rkt b/implementations/racket/preserves/preserves/write-text.rkt index a0381a1..d7f94f3 100644 --- a/implementations/racket/preserves/preserves/write-text.rkt +++ b/implementations/racket/preserves/preserves/write-text.rkt @@ -155,7 +155,7 @@ [(? symbol?) (define s (symbol->string v)) ;; FIXME: This regular expression is conservatively correct, but Anglo-chauvinistic. - (if (regexp-match #px"[a-zA-Z~!$%^&*?_=+/.][-a-zA-Z~!$%^&*?_=+/.0-9]*" s) + (if (regexp-match #px"^[a-zA-Z~!$%^&*?_=+/.][-a-zA-Z~!$%^&*?_=+/.0-9]*$" s) (! "~a" s) (begin (! "|") (for [(c (in-string s))]