* Use sort' instead of
quicksort'
* Tweak svn:ignore properties svn: r3990
This commit is contained in:
parent
237e9245fa
commit
8584be4570
|
@ -24,7 +24,7 @@
|
|||
(hash-table-get ranges obj (lambda _ null)))
|
||||
|
||||
(define/public (all-ranges)
|
||||
(quicksort
|
||||
(sort
|
||||
(apply append
|
||||
(hash-table-map
|
||||
ranges
|
||||
|
|
|
@ -541,7 +541,7 @@
|
|||
(define (oid id) (*i "hide" 'identifier id))
|
||||
(define (tid id) (*i "show" 'show-identifier id))
|
||||
(let ([choices
|
||||
(quicksort (append (map om opaque-modules)
|
||||
(sort (append (map om opaque-modules)
|
||||
(map oid opaque-ids)
|
||||
(map tid transparent-ids))
|
||||
(lambda (a b)
|
||||
|
|
Loading…
Reference in New Issue
Block a user