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

adjusted arg to raise-argument-error to produce sensible error msg

Browse Source
This commit is contained in:
John Clements 2013-11-05 20:51:59 -08:00
parent 73d6f4f807
commit 63194b4229
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/racket/list.rkt
View File

@ -138,7 +138,7 @@
(define (takef list pred) (define (takef list pred)
(unless (procedure? pred) (unless (procedure? pred)
(raise-argument-error 'takef "procedure?" 0 list pred)) (raise-argument-error 'takef "procedure?" 1 list pred))
(let loop ([list list]) (let loop ([list list])
(if (pair? list) (if (pair? list)
(let ([x (car list)]) (let ([x (car list)])
@ -152,7 +152,7 @@
(define (dropf list pred) (define (dropf list pred)
(unless (procedure? pred) (unless (procedure? pred)
(raise-argument-error 'dropf "procedure?" 0 list pred)) (raise-argument-error 'dropf "procedure?" 1 list pred))
(let loop ([list list]) (let loop ([list list])
(if (and (pair? list) (pred (car list))) (if (and (pair? list) (pred (car list)))
(loop (cdr list)) (loop (cdr list))