From 338e4b9e1197b9843c7265c472dc848027e1fa6c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 7 Jan 2005 21:40:54 +0000 Subject: [PATCH] . original commit: 589fe5a0d1b37eee971f04e933ca09637e0ac6fd --- collects/hierlist/hierlist-unit.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/hierlist/hierlist-unit.ss b/collects/hierlist/hierlist-unit.ss index 7e239ac8..ce8724cc 100644 --- a/collects/hierlist/hierlist-unit.ss +++ b/collects/hierlist/hierlist-unit.ss @@ -395,7 +395,7 @@ (delete (if (zero? s) s (sub1 s)) (if (zero? s) (add1 e) e)))] [else (loop (add1 pos) (cdr l) (cons (car l) others))])))] [sort (lambda (less-than?) - (let ([l (quicksort children (lambda (a b) + (let ([l (mergesort children (lambda (a b) (less-than? (send a get-item) (send b get-item))))]) (begin-edit-sequence)