From 9b6ff5d94def363d614e42d21b3d0ceb4b7555a2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 21 Sep 2012 08:31:04 -0600 Subject: [PATCH] compiler/cm: fix self-dependency check for ".ss" vs. ".rkt" --- collects/compiler/cm.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/compiler/cm.rkt b/collects/compiler/cm.rkt index d87907411b..cc84b2281b 100644 --- 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))]