From 590cf99637e7d4128a4d738192043de147e62305 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 28 Dec 2009 18:25:27 +0000 Subject: [PATCH] added the port number to the startup messsage (this helped me figure out hwat I'd done wrong, so I thouht it generally useful) svn: r17413 --- collects/handin-server/main.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/handin-server/main.ss b/collects/handin-server/main.ss index 8d08230fc1..35b0fa171a 100644 --- a/collects/handin-server/main.ss +++ b/collects/handin-server/main.ss @@ -623,8 +623,9 @@ ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(log-line "server started ------------------------------") -(hook 'server-start `([port ,(get-conf 'port-number)])) +(let ([port (get-conf 'port-number)]) + (log-line "server started on port ~a ------------------------------" port) + (hook 'server-start `([port ,port]))) (define stop-status (web:run))