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

fixing bad error message for assf

Browse Source 
The old error message requested a function of 2 arguments while the quasi-contract demands one of 1 argument.
This commit is contained in:
Matthias Felleisen 2018-08-05 17:48:17 -04:00 committed by GitHub
parent 582e85adf7
commit 8deaa4cf91
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/racket/private/list.rkt
View File

@ -184,7 +184,7 @@
[assf
(lambda (f l)
(unless (and (procedure? f) (procedure-arity-includes? f 1))
(raise-argument-error 'assf "(any/c any/c . -> . any/c)" f))
(raise-argument-error 'assf "(any/c . -> . any/c)" f))
(assoc-loop 'assf #f l (lambda (_ a) (f a))))])
(values assq assv assoc assf))))