From 8deaa4cf91b06bf674b1a20d965b5d1dd8dbcc19 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Sun, 5 Aug 2018 17:48:17 -0400 Subject: [PATCH] fixing bad error message for assf The old error message requested a function of 2 arguments while the quasi-contract demands one of 1 argument. --- racket/collects/racket/private/list.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/racket/private/list.rkt b/racket/collects/racket/private/list.rkt index f53bf09974..0ec5f8e7c0 100644 --- a/racket/collects/racket/private/list.rkt +++ b/racket/collects/racket/private/list.rkt @@ -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))))