Commits

Christian Kellermann  committed f07ad52

Sort versions in output

  • Participants
  • Parent commits 392a609

Comments (0)

Files changed (1)

File chicken-select.scm

         (string-concatenate (list csi " -n -p " "'(chicken-version #t)'"))
       (lambda () (printf "\t~a~%" (read-line))))))
 
-(let* ((all-chicks (available-chickens))
+(let* ((all-chicks (sort (available-chickens) string<?))
        (current (list-index (cut equal? (current-chicken chicken-coop chicken-link) <>) all-chicks)))
   (let select ((abort #f))
     (if (equal? abort #\return)