cs: fix banner and make startup use it

The string returned by `banner` was missing a "v" and a "." compared
to the traditional result. Avoid duplicating the string in "main.sps".
This commit is contained in:
Matthew Flatt 2019-05-05 17:33:25 -06:00
parent 151b5755c5
commit 83ad6bd7c1
2 changed files with 2 additions and 2 deletions

View File

@ -760,7 +760,7 @@
(apply orig args)))))
(when version?
(printf "Welcome to Racket v~a [cs].\n" (version)))
(display (banner)))
(call-in-main-thread
(lambda ()
(initialize-place!)

View File

@ -22,4 +22,4 @@
(loop 0)]))]))))))
(define (version) (extract-version-string))
(define (banner) (string-append "Welcome to Racket " (version) "\n"))
(define (banner) (string-append "Welcome to Racket v" (version) " [cs].\n"))