quote a name in an error message

2013-11-18 21:26:47 -06:00 · 2013-11-18 21:26:47 -06:00 · 62615f492d
commit 62615f492d
parent a2021fa634
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/racket/private/promise.rkt
+++ b/racket/collects/racket/private/promise.rkt
@ -277,7 +277,7 @@
  (lambda (this)
    (let ([name (running-name this)])
      (if name
-        (error 'force "reentrant promise ~.s" name)
+        (error 'force "reentrant promise `~.s'" name)
        (error 'force "reentrant promise"))))
  #:property prop:custom-write
  (lambda (this port write?)