suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* Use sort' instead of quicksort'

Browse Source 
* Tweak svn:ignore properties

svn: r3990
This commit is contained in:
Eli Barzilay 2006-08-08 21:29:03 +00:00
parent 237e9245fa
commit 8584be4570
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/macro-debugger/syntax-browser/pretty-range.ss
View File

@ -24,7 +24,7 @@
(hash-table-get ranges obj (lambda _ null)))
(define/public (all-ranges)
(quicksort
(sort
(apply append
(hash-table-map
ranges

10
collects/macro-debugger/view/gui.ss
View File

@ -541,11 +541,11 @@
(define (oid id) (*i "hide" 'identifier id))
(define (tid id) (*i "show" 'show-identifier id))
(let ([choices
(quicksort (append (map om opaque-modules)
(map oid opaque-ids)
(map tid transparent-ids))
(lambda (a b)
(string<=? (car a) (car b))))])
(sort (append (map om opaque-modules)
(map oid opaque-ids)
(map tid transparent-ids))
(lambda (a b)
(string<=? (car a) (car b))))])
(send look-ctl clear)
(for-each (lambda (c) (send look-ctl append (car c) (cdr c)))
choices))))