From eb67abb2ef18a2b91f6ee3544971f38e33700664 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Mon, 18 Nov 2013 15:32:12 -0500 Subject: [PATCH] Add quoting to error message. Closes PR14160. --- .../typed-racket-lib/typed-racket/typecheck/tc-app-helper.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-app-helper.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-app-helper.rkt index 59ca4911e5..a6c1e053a9 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-app-helper.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-app-helper.rkt @@ -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))