From 90826f3533b1a0052b95cfd8ae33c3aeb0001994 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 17 Jan 2011 20:55:11 -0600 Subject: [PATCH] get rid of a bogus use of eq? => should improve the coloring of the language popup in drracket's bottom left corner --- collects/drracket/private/unit.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt index 3e5858315f..526750aa30 100644 --- a/collects/drracket/private/unit.rkt +++ b/collects/drracket/private/unit.rkt @@ -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))