suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make language test work with cgc

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-28 09:58:56 -07:00
parent 2e8f771661
commit 5339be7594
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/drracket/language-test.rkt
View File

@ -1218,7 +1218,9 @@ the settings above should match r5rs
[get-line (lambda (n) (send interactions get-text [get-line (lambda (n) (send interactions get-text
(send interactions paragraph-start-position n) (send interactions paragraph-start-position n)
(send interactions paragraph-end-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 [line1-expect
(if (string? short-lang) (if (string? short-lang)
(format "Language: ~a" short-lang) (format "Language: ~a" short-lang)