From 0db3229464fb35f46905a258bc389b783bc0fffa Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 19 Mar 2014 19:40:22 -0700 Subject: [PATCH] nit --- command.rkt | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/command.rkt b/command.rkt index 192d9e3..0bc3851 100644 --- a/command.rkt +++ b/command.rkt @@ -1,14 +1,15 @@ #lang racket/base - +(require pollen/world) (provide (all-defined-out)) (define (handle-help) - `(displayln "Pollen commands: -help show this message -start [dir] starts project server in dir (default is current dir) -render [dir] render project in dir (default is current dir) -render path render file -clone copy project to desktop without source files")) + `(displayln (format "Pollen commands: +help show this message +start [dir] [port] starts project server in dir (default is current dir) + (default port is ~a) +render [dir] render project in dir (default is current dir) +render path render file +clone copy project to desktop without source files" ,(world:current-server-port)))) (define (handle-render dir-or-path [port #f]) `(begin