Changeset 18267 in project for release/4/vandusen/trunk


Ignore:
Timestamp:
05/31/10 10:44:08 (11 years ago)
Author:
Moritz Heidkamp
Message:

fix poll result display

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/vandusen/trunk/vandusen-poll.scm

    r18259 r18267  
    5555                                                   (cons (cdr (list-ref all-choices (car r))) (cdr r)))
    5656                                                 result))
    57                                     (result (sort result (compose > cdr)))
     57                                    (result (sort result (lambda (a b) (> (cdr a) (cdr b)))))
    5858                                    (result (map (lambda (r) (format "~A: ~A" (car r) (cdr r))) result))
    5959                                    (result (string-intersperse result ", ")))
Note: See TracChangeset for help on using the changeset viewer.