fix a bug in executable creation

rfindler · rmculpepper · commit df6eb1bc392e · 2013-01-28T13:14:41.000-05:00
The code used eq? to check to see if a given language was in an list of allowed-to-create-executables languages. But the language object was passing thru TR and so eq? didn't hold and thus the check was buggy. (cherry picked from commit 2d2b3be)
diff --git a/collects/drracket/private/language-configuration.rkt b/collects/drracket/private/language-configuration.rkt
@@ -85,9 +85,11 @@
     (define languages null)
     
     (define languages-allowing-executable-creation '())
-    (define (language-allows-executable-creation? lang)
-      (and (memq lang languages-allowing-executable-creation)
-           #t))
+    (define (language-allows-executable-creation? candidate-lang)
+      (define candidates-positions (send candidate-lang get-language-position))
+      (for/or ([allowed-lang (in-list languages-allowing-executable-creation)])
+        (equal? (send allowed-lang get-language-position)
+                candidates-positions)))
     
     ;; add-language : (instanceof language%) -> void
     ;; only allows addition on phase2
