Commits

Moritz Heidkamp  committed ee2e259

chicken-select: change abort key to enter (thanks Mario Goulart)

  • Participants
  • Parent commits 6113a6c

Comments (0)

Files changed (1)

File chicken-select.scm

 (let* ((all-chicks (available-chickens))
        (current (list-index (cut equal? (current-chicken chicken-coop chicken-link) <>) all-chicks)))
   (let select ((abort #f))
-    (if (equal? abort #\q)
+    (if (equal? abort #\return)
         (begin
           (print "Aborted.")
           (exit 0))
                     all-chicks
                     (iota (length all-chicks)))
           (newline)
-          (print "Select a new Chicken, press 'q' to abort:")
+          (print "Select a new Chicken, press ENTER to abort:")
           (let* ((choice-raw (with-stty '(cbreak (not echo)) read-char))
                  (num (string->number (string choice-raw))))
             (if (and