Use of unsyntax inside a syntax, change to a quasisyntax.

2011-04-04 23:19:58 -04:00 · 2011-04-04 23:19:58 -04:00 · b35b7d98f8
commit b35b7d98f8
parent d359daa5f5
1 changed files with 1 additions and 1 deletions
--- 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)))))]