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

This commit is contained in:
Robby Findler 2011-01-17 20:55:11 -06:00
parent d8e123753c
commit 90826f3533

View File

@ -695,7 +695,8 @@ module browser threading seems wrong.
(define/public (this-and-next-language-the-same?)
(let ([execute-lang (drracket:language-configuration:language-settings-language execute-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?
(send execute-lang marshall-settings
(drracket:language-configuration:language-settings-settings execute-settings))