From 3018417249f22c5d570b7f6279d4ad7ff6e9bb16 Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Fri, 4 Sep 2015 16:03:54 -0500 Subject: [PATCH] added args checking to prefix functions --- pkgs/racket-test-core/tests/racket/list.rktl | 1 + racket/collects/racket/list.rkt | 4 ++++ 2 files changed, 5 insertions(+) diff --git a/pkgs/racket-test-core/tests/racket/list.rktl b/pkgs/racket-test-core/tests/racket/list.rktl index d7d3dacb45..cc185354c4 100644 --- a/pkgs/racket-test-core/tests/racket/list.rktl +++ b/pkgs/racket-test-core/tests/racket/list.rktl @@ -615,6 +615,7 @@ (test '((a b c d) () ()) split*-list '(a b c d) '(a b c d)) (test '((1 2) (3 4) (4 3)) split*-list '(1 2 3 4) '(1 2 4 3) =) (err/rt-test (split*-list '() '() #f)) +(err/rt-test (take-common-prefix 1 1)) ;; ---------- remf / remf* ---------- diff --git a/racket/collects/racket/list.rkt b/racket/collects/racket/list.rkt index a0b7721732..1717f6f57c 100644 --- a/racket/collects/racket/list.rkt +++ b/racket/collects/racket/list.rkt @@ -287,6 +287,10 @@ ;; lists, and return a matching number of values. (define (internal-split-common-prefix as bs same? keep-prefix? name) + (unless (list? as) + (raise-argument-error name "list?" as)) + (unless (list? bs) + (raise-argument-error name "list?" bs)) (unless (and (procedure? same?) (procedure-arity-includes? same? 2)) (raise-argument-error name "(any/c any/c . -> . any/c)" same?))