compiler/cm: fix self-dependency check for ".ss" vs. ".rkt"

2012-09-21 08:31:04 -06:00 · 2012-09-21 08:31:04 -06:00 · 9b6ff5d94d
commit 9b6ff5d94d
parent cb041850f4
1 changed files with 3 additions and 1 deletions
--- a/collects/compiler/cm.rkt
+++ b/collects/compiler/cm.rkt
@ -144,7 +144,9 @@
          (let* ([r (resolve-module-path-index x path)]
                 [r (if (pair? r) (cadr r) r)])
            (if (and (path? r) 
-                     (not (equal? path r)))
+                     (not (equal? path r))
+                     (not (equal? path r))
+                     (not (equal? path (rkt->ss r))))
                (hash-set ht (path->bytes r) #t)
                ht))))
      (for*/fold ([ht new-ht]) ([non-star? (in-list '(#f #t))]