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

fix uses of raise-arguments-error

Browse Source 
one message string and no field-value pairs
This commit is contained in:
AlexKnauth 2019-04-01 21:26:42 -04:00 committed by Sam Tobin-Hochstadt
parent 9f80bc9cee
commit 935c558717
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/racket/private/set-types.rkt
View File

@ -521,8 +521,9 @@
(when (null? args) (when (null? args)
(raise-arguments-error (raise-arguments-error
who who
(string-append
"when inject-proc, add-proc, shrink-proc, and extract-proc are #f," "when inject-proc, add-proc, shrink-proc, and extract-proc are #f,"
" at least one property must be supplied"))) " at least one property must be supplied"))))
(values clear-proc (values clear-proc
(or equal-key-proc (λ (s e) e)) (or equal-key-proc (λ (s e) e))
args)) args))