diff --git a/pollen/private/command.rkt b/pollen/private/command.rkt index 75055a3..ae2a93c 100644 --- a/pollen/private/command.rkt +++ b/pollen/private/command.rkt @@ -65,7 +65,7 @@ version print the version" (setup:current-server-port)))) (define (handle-version) - (displayln ((dynamic-require 'pollen/private/version 'pollen:version)))) + (displayln (dynamic-require 'pollen/private/version 'pollen:version))) (define (handle-reset directory-maybe) diff --git a/pollen/private/project-server.rkt b/pollen/private/project-server.rkt index 40844f7..8305a62 100755 --- a/pollen/private/project-server.rkt +++ b/pollen/private/project-server.rkt @@ -20,7 +20,7 @@ [((string-arg) ... "out" (string-arg)) route-out] [else route-default])) - (message (format "Welcome to Pollen ~a" (pollen:version)) (format "(Racket ~a)" (version))) + (message (format "Welcome to Pollen ~a" pollen:version) (format "(Racket ~a)" (version))) (message (format "Project root is ~a" (setup:current-project-root))) (define server-name (format "http://localhost:~a" (setup:current-server-port))) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index fe63843..d2935b3 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1454185672 +1454186244 diff --git a/pollen/private/version.rkt b/pollen/private/version.rkt index b362818..491a369 100644 --- a/pollen/private/version.rkt +++ b/pollen/private/version.rkt @@ -12,7 +12,10 @@ (- (char->integer #\a) (char->integer #\0)) 10))))))) -(define (pollen:version) +(define (get-version) (define major-version 1) (define minor-version (convert (~r ts #:base 26))) - (format "~a.~a" major-version minor-version)) \ No newline at end of file + (format "~a.~a" major-version minor-version)) + + +(define pollen:version (get-version)) \ No newline at end of file