create core binaries as 'racket' and 'gracket'

original commit: 0f0a59732e9a446aa42c9ab3b43c473ea57e6763
This commit is contained in:
Matthew Flatt 2010-04-15 21:15:57 -04:00
parent d369a52af3
commit 564ebfed03

View File

@ -50,14 +50,14 @@
(super-init)
(let ([s (last-position)]
[m (regexp-match #rx"^(.*), (Copyright.*)$" (banner))])
(insert (format "Welcome to ~a." (cadr m)))
(insert (format "~a." (cadr m)))
(let ([e (last-position)])
(insert #\newline)
(change-style (send (make-object wx:style-delta% 'change-bold) set-delta-foreground "BLUE") s e))
(output (caddr m)))
(insert "This is a simple window for evaluating MrEd Scheme expressions.") (insert #\newline)
(insert "This is a simple window for evaluating Racket expressions.") (insert #\newline)
(let ([s (last-position)])
(insert "Quit now and run DrScheme to get a better window.")
(insert "Quit now and run DrRacket to get a better window.")
(let ([e (last-position)])
(insert #\newline)
(change-style