Removing sorting on deq

2010-10-05 16:01:42 -06:00 · 2010-10-05 16:01:42 -06:00 · 85f38415bc
commit 85f38415bc
parent 19ab1bb980
1 changed files with 1 additions and 3 deletions
--- 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))