expander: sort submodule names in a linklet bundle
This commit is contained in:
parent
7c0a978f28
commit
861ddac5bc
|
@ -310,10 +310,10 @@
|
|||
bundle)]
|
||||
[bundle (if (null? pre-submodules)
|
||||
bundle
|
||||
(hash-set bundle 'pre (map car pre-submodules)))]
|
||||
(hash-set bundle 'pre (sort (map car pre-submodules) symbol<?)))]
|
||||
[bundle (if (null? post-submodules)
|
||||
bundle
|
||||
(hash-set bundle 'post (map car post-submodules)))]
|
||||
(hash-set bundle 'post (sort (map car post-submodules) symbol<?)))]
|
||||
[bundle (if cross-phase-persistent?
|
||||
(hash-set bundle 'cross-phase-persistent? #t)
|
||||
bundle)]
|
||||
|
|
|
@ -101,5 +101,4 @@
|
|||
(hash->linklet-bundle
|
||||
(hash-set (linklet-bundle->hash b)
|
||||
(if pre? 'pre 'post)
|
||||
(map module-compiled-immediate-name submods))))
|
||||
|
||||
(sort (map module-compiled-immediate-name submods) symbol<?))))
|
||||
|
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user