diff --git a/gem300.rkt b/gem300.rkt index 9f3028d..027847b 100644 --- a/gem300.rkt +++ b/gem300.rkt @@ -16,7 +16,9 @@ (read-response c-in)) (println status) - (println header)) + (println header) + + c-in) (define (read-response (c-in (current-input-port))) (define maxlen 1027) @@ -91,5 +93,3 @@ (display "G300> ") (dispatch-command (read-line)) (repl)) - -(repl)