Typo in error.

Fixes PR13769.
2013-05-22 14:10:05 -04:00 · 2013-05-22 14:10:05 -04:00 · 9c4a009b1a
commit 9c4a009b1a
parent a97181f024
1 changed files with 1 additions and 1 deletions
--- a/collects/racket/list.rkt
+++ b/collects/racket/list.rkt
@ -160,7 +160,7 @@

 (define (splitf-at list pred)
  (unless (procedure? pred)
-    (raise-argument-error 'splitf-at "procedure?" 0 list pred))
+    (raise-argument-error 'splitf-at "procedure?" 1 list pred))
  (let loop ([list list] [pfx '()])
    (if (and (pair? list) (pred (car list)))
      (loop (cdr list) (cons (car list) pfx))