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

Add quoting to error message.

Browse Source 
Closes PR14160.
This commit is contained in:
Vincent St-Amour 2013-11-18 15:32:12 -05:00
parent 63572cc0f7
commit eb67abb2ef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-app-helper.rkt
View File

@ -326,7 +326,7 @@
msg-vars
(Function: (list (arr: msg-doms msg-rngs msg-rests msg-drests (list (Keyword: _ _ #f) ...)) ...))))
(let ([fcn-string (if name
(format "function ~a" (syntax->datum name))
(format "function `~a'" (syntax->datum name))
"function")])
(if (and (andmap null? msg-doms)
(null? argtypes))