suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

quote a name in an error message

Browse Source
This commit is contained in:
Robby Findler 2013-11-18 21:26:47 -06:00
parent a2021fa634
commit 62615f492d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/racket/private/promise.rkt
View File

@ -277,7 +277,7 @@
(lambda (this) (lambda (this)
(let ([name (running-name this)]) (let ([name (running-name this)])
(if name (if name
(error 'force "reentrant promise ~.s" name) (error 'force "reentrant promise `~.s'" name)
(error 'force "reentrant promise")))) (error 'force "reentrant promise"))))
#:property prop:custom-write #:property prop:custom-write
(lambda (this port write?) (lambda (this port write?)