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

quicksort -> sort

Browse Source 
svn: r2574
This commit is contained in:
Eli Barzilay 2006-04-01 21:32:39 +00:00
parent 6a751d4e92
commit bceb2efa2c
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/string-constants/string-constant.ss
View File

@ -160,7 +160,7 @@
lang2-name) lang2-name)
(for-each (for-each
(lambda (x) (fprintf sp " ~s\n" x)) (lambda (x) (fprintf sp " ~s\n" x))
(quicksort (sort
constants constants
(lambda (x y) (string<=? (symbol->string (car x)) (symbol->string (car y)))))) (lambda (x y) (string<=? (symbol->string (car x)) (symbol->string (car y))))))
(newline sp))) (newline sp)))