diff --git a/pollen/private/version.rkt b/pollen/private/version.rkt index a575708..5b231de 100644 --- a/pollen/private/version.rkt +++ b/pollen/private/version.rkt @@ -14,8 +14,12 @@ (define (get-version) (define major-version 0) - (define minor-version (convert (~r ts #:base 26))) - (format "~a.~a" major-version minor-version)) + (define minor-version 9) + (define pollen-birthday 1375340400) ; 8/1/2013, 12:00:00 AM GMT-7:00 DST + (define seconds-per-year (* 60 60 24)) + (define build-time (- (file->value ts-file) pollen-birthday)) + (define-values (build-days build-seconds) (quotient/remainder build-time seconds-per-year)) + (format "~a.~a.~a.~a" major-version minor-version build-days build-seconds)) (define pollen:version (get-version)) \ No newline at end of file