From 564ebfed038bfc18ea6db5d9b707d8b502cf59a4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 15 Apr 2010 21:15:57 -0400 Subject: [PATCH] create core binaries as 'racket' and 'gracket' original commit: 0f0a59732e9a446aa42c9ab3b43c473ea57e6763 --- collects/mred/private/repl.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mred/private/repl.ss b/collects/mred/private/repl.ss index 8f406c19..dcc707fc 100644 --- a/collects/mred/private/repl.ss +++ b/collects/mred/private/repl.ss @@ -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