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

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

Browse Source
This commit is contained in:
Stevie Strickland 2011-04-04 23:19:58 -04:00
parent d359daa5f5
commit b35b7d98f8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/contract/private/arrow.rkt
View File

@ -296,7 +296,7 @@ v4 todo:
"received ~a argument~a, expected ~a" "received ~a argument~a, expected ~a"
args-len (if (= args-len 1) "" "s") arity-string)) args-len (if (= args-len 1) "" "s") arity-string))
(apply basic-lambda-name args)) (apply basic-lambda-name args))
#'(λ args #`(λ args
(raise-blame-error (blame-swap blame) val (raise-blame-error (blame-swap blame) val
"expected required keyword ~a" "expected required keyword ~a"
(quote #,(car req-keywords)))))] (quote #,(car req-keywords)))))]