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:
parent
d8e123753c
commit
90826f3533
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user