suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust the collection sorting that 'raco setup' so that it works

Browse Source 
in our new pkgs world (and has a, hopefully, similar effect)
This commit is contained in:
Robby Findler 2013-07-06 11:43:02 -05:00
parent 3afdf8c622
commit 8f539d994b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/lib/collects/setup/setup-unit.rkt
View File

@ -870,7 +870,7 @@
(define (make-zo-step)
(define (partition-cct name cct)
(partition (lambda (x) (not (string=? (cc-name (car x)) name))) cct))
(partition (lambda (x) (not (regexp-match? name (cc-name (car x))))) cct))
(define (move-to where names cct)
(for/fold ([cct cct]) ([name (in-list (reverse names))])
(define-values [diff same] (partition-cct name cct))
@ -891,8 +891,8 @@
(with-specified-mode
(lambda ()
(define cct
(move-to 'beginning (list "compiler" "raco" "racket" "images")
(move-to 'end (list "drracket" "drscheme")
(move-to 'beginning (list #rx"/compiler$" #rx"/raco$" #rx"/racket$" #rx"<pkgs>/images/")
(move-to 'end (list #rx"<pkgs>/drracket")
(sort-collections-tree
(collection-tree-map top-level-plt-collects)))))
(iterate-cct (lambda (cc)