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

fix sorting of "hw1a" "hw1b" etc

Browse Source 
svn: r1868
This commit is contained in:
Eli Barzilay 2006-01-19 13:04:41 +00:00
parent 1f7cffecae
commit 7efb1e0db6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/handin-server/status-web-root/servlets/status.ss
View File

@ -180,7 +180,8 @@
[bm (regexp-match re:base b)])
(if (and am bm
(string=? (cadr am) (cadr bm)))
(< (string->number (caddr am)) (string->number (caddr bm)))
(or (< (string->number (caddr am)) (string->number (caddr bm)))
(string<? a b))
(string<? a b)))))]
[user (get-status status 'user (lambda () "???"))])
(let ([next