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

.

Browse Source 
original commit: f24911554ea76b4221eb0aab49a2c9a084465c7c
This commit is contained in:
Matthew Flatt 2002-03-13 22:53:38 +00:00
parent 2624984d62
commit 126fd721b2
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/mred/mred.ss
View File

@ -5306,7 +5306,7 @@
(cond
[(null? l1) l2]
[(null? l2) l1]
[(string<? (car l1) (car l2))
[(string-locale<? (car l1) (car l2))
(cons (car l1) (merge (cdr l1) l2))]
[else (cons (car l2) (merge (cdr l2) l1))]))]
[sort (lambda (l) (car (split (length l) l)))])