Commits

Moritz Heidkamp committed 8487f0e

chicken-select: print prompt after list of available chickens

Comments (0)

Files changed (1)

chicken-select.scm

           (print "Aborted.")
           (exit 0))
         (begin
-          (print "Select a new Chicken, press 'q' to abort:")
           (for-each (lambda (c n)
                       (printf "~a ~a: ~a~%"
                               (if (equal? n current) "*" " ")
                               n c))
                     all-chicks
                     (iota (length all-chicks)))
+          (newline)
+          (print "Select a new Chicken, press 'q' to abort:")
           (let* ((choice-raw (read-char))
                  (num (string->number (string choice-raw))))
             (if (and