From 63194b4229609372be266305f391cd58dab59f95 Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Tue, 5 Nov 2013 20:51:59 -0800
Subject: [PATCH] adjusted arg to raise-argument-error to produce sensible
 error msg

---
 racket/collects/racket/list.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/racket/collects/racket/list.rkt b/racket/collects/racket/list.rkt
index ed9a1369cf..2cd9833fd1 100644
--- a/racket/collects/racket/list.rkt
+++ b/racket/collects/racket/list.rkt
@@ -138,7 +138,7 @@
 
 (define (takef list pred)
   (unless (procedure? pred)
-    (raise-argument-error 'takef "procedure?" 0 list pred))
+    (raise-argument-error 'takef "procedure?" 1 list pred))
   (let loop ([list list])
     (if (pair? list)
       (let ([x (car list)])
@@ -152,7 +152,7 @@
 
 (define (dropf list pred)
   (unless (procedure? pred)
-    (raise-argument-error 'dropf "procedure?" 0 list pred))
+    (raise-argument-error 'dropf "procedure?" 1 list pred))
   (let loop ([list list])
     (if (and (pair? list) (pred (car list)))
       (loop (cdr list))