expander: sort submodule names in a linklet bundle

This commit is contained in:
Matthew Flatt 2019-03-12 17:16:34 -06:00
parent 7c0a978f28
commit 861ddac5bc
3 changed files with 1876 additions and 1857 deletions

View File

@ -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)]

View File

@ -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