From b35b7d98f8a1520fdd90f3f1ee873046ee2260b6 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Mon, 4 Apr 2011 23:19:58 -0400 Subject: [PATCH] Use of unsyntax inside a syntax, change to a quasisyntax. --- collects/racket/contract/private/arrow.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/contract/private/arrow.rkt b/collects/racket/contract/private/arrow.rkt index f5a9cb1c23..7f1d2c6bdb 100644 --- a/collects/racket/contract/private/arrow.rkt +++ b/collects/racket/contract/private/arrow.rkt @@ -296,7 +296,7 @@ v4 todo: "received ~a argument~a, expected ~a" args-len (if (= args-len 1) "" "s") arity-string)) (apply basic-lambda-name args)) - #'(λ args + #`(λ args (raise-blame-error (blame-swap blame) val "expected required keyword ~a" (quote #,(car req-keywords)))))]