From 05d4d1e3560516fb172307b839188355f4622586 Mon Sep 17 00:00:00 2001 From: Wesley Kerfoot Date: Sun, 2 Sep 2012 08:44:23 -0400 Subject: [PATCH] made output even more nicer --- lazyplay.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lazyplay.rkt b/lazyplay.rkt index ab52814..730b389 100755 --- a/lazyplay.rkt +++ b/lazyplay.rkt @@ -141,7 +141,7 @@ [number-list (for/list ([i (length playlist)]) i)] [output-list (map cons playlist number-list)]) (display (string-join (map (λ (xs) (format "~a ~a" (car xs) (cdr xs))) output-list) "\n")) - (display "\n") + (display "\nCommands: add 1 2 3 ...\n$> ") (let ([input (read-line (current-input-port))]) (match (regexp-split #px"\\s" input) [(list-rest "add" xs)