From d3a4170af264089017f6450a3033e640c9382062 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 8 Mar 2000 01:18:53 +0000
Subject: [PATCH] .,

original commit: ba3ada699a925ba2d7ffe61f1638ccc495921827
---
 collects/mzlib/functior.ss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss
index 0f7bc40..9785672 100644
--- a/collects/mzlib/functior.ss
+++ b/collects/mzlib/functior.ss
@@ -34,9 +34,13 @@
   (define quicksort
     (polymorphic
      (lambda (l less-than)
+       (unless (list? l)
+	 (raise-type-error 'quicksort "proper list" l))
+       (unless (procedure-arity-includes? less-than 2)
+	 (raise-type-error 'quicksort "procedure of arity 2" less-than))
        (let* ([v (list->vector l)]
               [count (vector-length v)])
-         (let loop ([min 0][max count])
+	 (let loop ([min 0][max count])
            (if (< min (sub1 max))
                (let ([pval (vector-ref v min)])
                  (let pivot-loop ([pivot min]