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

get rid of a bogus use of eq? => should improve the coloring of the language popup in drracket's bottom left corner

Browse Source
This commit is contained in:
Robby Findler 2011-01-17 20:55:11 -06:00
parent d8e123753c
commit 90826f3533
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drracket/private/unit.rkt
View File

@ -695,7 +695,8 @@ module browser threading seems wrong.
(define/public (this-and-next-language-the-same?) (define/public (this-and-next-language-the-same?)
(let ([execute-lang (drracket:language-configuration:language-settings-language execute-settings)] (let ([execute-lang (drracket:language-configuration:language-settings-language execute-settings)]
[next-lang (drracket:language-configuration:language-settings-language next-settings)]) [next-lang (drracket:language-configuration:language-settings-language next-settings)])
(and (eq? execute-lang next-lang) (and (equal? (send execute-lang get-language-position)
(send next-lang get-language-position))
(equal? (equal?
(send execute-lang marshall-settings (send execute-lang marshall-settings
(drracket:language-configuration:language-settings-settings execute-settings)) (drracket:language-configuration:language-settings-settings execute-settings))