From 23fb09a8069bdc8f2f6b340c503e48489ccfbaf6 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Mon, 25 Sep 2017 14:06:25 -0500 Subject: [PATCH] Fix error message for takef-right and co. --- racket/collects/racket/list.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/racket/list.rkt b/racket/collects/racket/list.rkt index 39d61fb8b5..92a38a8e6a 100644 --- a/racket/collects/racket/list.rkt +++ b/racket/collects/racket/list.rkt @@ -254,7 +254,7 @@ (define (count-from-right who list pred) (unless (procedure? pred) - (raise-argument-error who "procedure?" 0 list pred)) + (raise-argument-error who "procedure?" 1 list pred)) (let loop ([list list] [rev '()] [n 0]) (if (pair? list) (loop (cdr list) (cons (car list) rev) (add1 n))