setup/link: fix collection-root results for version regexps

2012-12-28 11:56:57 -07:00 · 2012-12-28 11:56:57 -07:00 · 0a708b040a
commit 0a708b040a
parent 480ae5e262
1 changed files with 3 additions and 1 deletions
--- a/collects/setup/link.rkt
+++ b/collects/setup/link.rkt
@ -196,7 +196,9 @@
      (if root?
          ;; Return root paths:
          (for/list ([e (in-list new-table)]
-                     #:when (eq? 'root (car e)))
+                     #:when (eq? 'root (car e))
+		     #:when (or (null? (cddr e))
+				(regexp-match? (caddr e) (version))))
            (simplify (cadr e)))
          ;; Return list of collections mapped for this version:
          (let ([ht (make-hash)])