suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added the port number to the startup messsage (this helped me figure out hwat I'd done wrong, so I thouht it generally useful)

Browse Source 
svn: r17413
This commit is contained in:
Robby Findler 2009-12-28 18:25:27 +00:00
parent 8d3eb3c9b9
commit 590cf99637
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/handin-server/main.ss
View File

@ -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))