From 85f38415bc2a68c0b26dabe1e161b23d79e95806 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 5 Oct 2010 16:01:42 -0600 Subject: [PATCH] Removing sorting on deq --- collects/meta/drdr2/lib/pqueue.rkt | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/collects/meta/drdr2/lib/pqueue.rkt b/collects/meta/drdr2/lib/pqueue.rkt index 8d1554c9a9..931044776b 100644 --- a/collects/meta/drdr2/lib/pqueue.rkt +++ b/collects/meta/drdr2/lib/pqueue.rkt @@ -30,9 +30,7 @@ (define (pqueue-dequeue! pq) (match-define (pqueue dir) pq) - (match (sort (directory-list (pqueue-dest dir)) - string<=? - #:key path->string) + (match (directory-list (pqueue-dest dir)) [(list-rest choice _) (define dest (build-path (pqueue-dest dir) choice))