add current version number to the version url
svn: r1978
This commit is contained in:
parent
98e601e72b
commit
e6253449d2
|
@ -49,7 +49,7 @@
|
||||||
;; Get server information, carefully
|
;; Get server information, carefully
|
||||||
(define version-info
|
(define version-info
|
||||||
(parameterize ([current-input-port
|
(parameterize ([current-input-port
|
||||||
(try (url->port version-url)
|
(try (url->port (format "~a?~a" version-url (version)))
|
||||||
"could not connect to website")])
|
"could not connect to website")])
|
||||||
(try (read) "unexpected response from server")))
|
(try (read) "unexpected response from server")))
|
||||||
(define (get key)
|
(define (get key)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user