From 0a708b040a8174adc36aaa5ce59e6a758cccb269 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 28 Dec 2012 11:56:57 -0700 Subject: [PATCH] setup/link: fix collection-root results for version regexps --- collects/setup/link.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/setup/link.rkt b/collects/setup/link.rkt index be24e948ba..2f06935062 100644 --- 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)])