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

Fix error message for takef-right and co.

Browse Source
This commit is contained in:
Vincent St-Amour 2017-09-25 14:06:25 -05:00
parent d4f2f01c80
commit 23fb09a806
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/list.rkt
View File

@ -254,7 +254,7 @@
(define (count-from-right who list pred) (define (count-from-right who list pred)
(unless (procedure? 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]) (let loop ([list list] [rev '()] [n 0])
(if (pair? list) (if (pair? list)
(loop (cdr list) (cons (car list) rev) (add1 n)) (loop (cdr list) (cons (car list) rev) (add1 n))