|
@ -90,7 +90,7 @@ |
|
|
|
|
|
|
|
|
; (play (play-list) played) |
|
|
; (play (play-list) played) |
|
|
(define (controller) |
|
|
(define (controller) |
|
|
(let * ((input (read (current-input-port)))) |
|
|
(let* ((input (read (current-input-port)))) |
|
|
(cond ((eof-object? input)) |
|
|
(cond ((eof-object? input)) |
|
|
(else |
|
|
(else |
|
|
(printf "output: ~A\n" input) |
|
|
(printf "output: ~A\n" input) |
|
|