improve version retrieval

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)

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

pollen/private/ts.rktd

@@ -1 +1 @@
-1454185672
+1454186244

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))
+  (format "~a.~a" major-version minor-version))
+
+
+(define pollen:version (get-version))