From 31a9f69df5b32213617da6193682cbdb867ba72a Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 24 Feb 2008 16:18:17 +0000
Subject: [PATCH] typo

svn: r8784
---
 collects/scheme/private/list.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scheme/private/list.ss b/collects/scheme/private/list.ss
index 1f8c641d0b..8d009e5727 100644
--- a/collects/scheme/private/list.ss
+++ b/collects/scheme/private/list.ss
@@ -52,7 +52,7 @@
     (let step ([n n])
       (cond [(> n 3) (let* (; let* not really needed with mzscheme's l->r eval
                             [j (quotient n 2)] [a (step j)] [b (step (- n j))])
-                       (merge-sorted! a b less?))]
+                       (merge-sorted! a b))]
             ;; the following two cases are just explicit treatment of sublists
             ;; of length 2 and 3, could remove both (and use the above case for
             ;; n>1) and it would still work, except a little slower