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