Remove obsolete default-valued parameter

2011-10-27 15:53:00 -04:00 · 2011-10-27 15:53:00 -04:00 · 11f7435b1c
parent 5e742fbc8d
commit 11f7435b1c
1 changed files with 1 additions and 1 deletions
--- a/repl-server.rkt
+++ b/repl-server.rkt
@ -98,7 +98,7 @@
    (close-output-port out)))

 (define (t-server)
-  (define s (tcp-listen 2322 4))
+  (define s (tcp-listen 2322))
  (printf "Accepting...\n")
  (tcp-pty-ssh-server s repl-shell #:prompt *prompt*))