bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit ef73afe8aa283ed2966b9cee72477958e7e901ed
parent 39ccb05def8bf1745ffc0a22f8ef426e889826d1
Author: Eli Barzilay <eli@barzilay.org>
Date:   Sun,  6 Jun 2010 05:40:16 -0400

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

original commit: 054ce9d21cf9928153f42c372574694226ccc212

Diffstat:
M
collects/meta/web/html/resource.rkt
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git 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 '()])