make language test work with cgc

This commit is contained in:
Matthew Flatt 2010-12-28 09:58:56 -07:00
parent 2e8f771661
commit 5339be7594

View File

@ -1218,7 +1218,9 @@ the settings above should match r5rs
[get-line (lambda (n) (send interactions get-text
(send interactions paragraph-start-position n)
(send interactions paragraph-end-position n)))]
[line0-expect (format "Welcome to DrRacket, version ~a [3m]." (version:version))]
[line0-expect (format "Welcome to DrRacket, version ~a [~a]."
(version:version)
(system-type 'gc))]
[line1-expect
(if (string? short-lang)
(format "Language: ~a" short-lang)