From 5e742fbc8d3af405f60784ec9ba7d76ae24b35a1 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 27 Oct 2011 15:50:18 -0400 Subject: [PATCH] Tweak REPL behaviour, and listen on 0.0.0.0 --- repl-server.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/repl-server.rkt b/repl-server.rkt index 7caff6b..c0a28fe 100644 --- a/repl-server.rkt +++ b/repl-server.rkt @@ -88,14 +88,17 @@ (sandbox-error-output out) (current-namespace (make-empty-namespace))) (parameterize ((current-eval (get-user-evaluator username))) - (eval `(define say ,(lambda (utterance) (send handle say utterance) (void)))) + (eval `(define say ,(lambda (utterance) + (printf " You: ~a\n" (->string/safe utterance)) + (send handle say utterance) + (void)))) (call-with-interaction-prompt-read handle read-eval-print-loop)) (fprintf out "\nGoodbye!\n") (close-input-port in) (close-output-port out))) (define (t-server) - (define s (tcp-listen 2322 4 #t "localhost")) + (define s (tcp-listen 2322 4)) (printf "Accepting...\n") (tcp-pty-ssh-server s repl-shell #:prompt *prompt*))