Repair detection of "easily-printable" symbols

2021-03-08 15:31:50 +01:00 · 2021-03-08 15:31:50 +01:00 · c27aa7579e
parent e894d0dbbc
commit c27aa7579e
1 changed files with 1 additions and 1 deletions
--- 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))]