Fix prefix-out for identifiers with spaces

2014-11-08 18:27:59 -03:00 · 2014-11-08 18:27:59 -03:00 · 06d76961e5
commit 06d76961e5
parent 9c7c8e1b49
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/racket/private/reqprov.rkt
+++ b/racket/collects/racket/private/reqprov.rkt
@ -1071,7 +1071,7 @@
              (map (lambda (e)
                     (make-export
                      (export-local-id e)
-                      (string->symbol (format "~s~s"
+                      (string->symbol (format "~a~a"
                                              (syntax-e #'pfx)
                                              (export-out-sym e)))
                      (export-mode e)