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

.

Browse Source 
original commit: 589fe5a0d1b37eee971f04e933ca09637e0ac6fd
This commit is contained in:
Matthew Flatt 2005-01-07 21:40:54 +00:00
parent 20552bbc29
commit 338e4b9e11
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/hierlist/hierlist-unit.ss
View File

@ -395,7 +395,7 @@
(delete (if (zero? s) s (sub1 s)) (if (zero? s) (add1 e) e)))] (delete (if (zero? s) s (sub1 s)) (if (zero? s) (add1 e) e)))]
[else (loop (add1 pos) (cdr l) (cons (car l) others))])))] [else (loop (add1 pos) (cdr l) (cons (car l) others))])))]
[sort (lambda (less-than?) [sort (lambda (less-than?)
(let ([l (quicksort children (lambda (a b) (let ([l (mergesort children (lambda (a b)
(less-than? (send a get-item) (less-than? (send a get-item)
(send b get-item))))]) (send b get-item))))])
(begin-edit-sequence) (begin-edit-sequence)