From e2cbd9bd739db0a38282878bbfca97b3721741ae Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 17 Mar 2021 13:53:40 -0600 Subject: [PATCH] fix "non-pair" error message for `ass{oc,q,v,f}` --- racket/collects/racket/private/list.rkt | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/racket/collects/racket/private/list.rkt b/racket/collects/racket/private/list.rkt index 167f3e246f..778a9eaa2b 100644 --- a/racket/collects/racket/private/list.rkt +++ b/racket/collects/racket/private/list.rkt @@ -132,11 +132,10 @@ "not a proper list: " orig-l)) (define (bad-item who a orig-l) - (raise-mismatch-error who - "non-pair found in list: " - a - " in " - orig-l)) + (raise-arguments-error who + "non-pair found in list" + "non-pair" a + "list" orig-l)) (define-values (assq assv assoc assf) (let ()