Fix a small but nasty bug, and the related problem in stubs.

original commit: 054ce9d21cf9928153f42c372574694226ccc212
2010-06-06 05:40:16 -04:00 · 2010-06-06 05:40:16 -04:00 · ef73afe8aa
commit ef73afe8aa
parent 39ccb05def
1 changed files with 2 additions and 1 deletions
--- a/collects/meta/web/html/resource.rkt
+++ b/collects/meta/web/html/resource.rkt
@ -63,7 +63,8 @@
             (let loop ([r (car root+url)] [p path])
               (if (null? r)
                 `(,(cdr root+url) ,@p ,file*)
-                 (and (pair? p) (loop (cdr r) (cdr p))))))
+                 (and (pair? p) (equal? (car p) (car r))
+                      (loop (cdr r) (cdr p))))))
           roots))
  (define result
    (let loop ([t tgtdir] [c curdir] [pfx '()])