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

expander: sort submodule names in a linklet bundle

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/expander/compile/module.rkt
View File

@ -310,10 +310,10 @@
bundle)] bundle)]
[bundle (if (null? pre-submodules) [bundle (if (null? pre-submodules)
bundle 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 (if (null? post-submodules)
bundle bundle
(hash-set bundle 'post (map car post-submodules)))] (hash-set bundle 'post (sort (map car post-submodules) symbol<?)))]
[bundle (if cross-phase-persistent? [bundle (if cross-phase-persistent?
(hash-set bundle 'cross-phase-persistent? #t) (hash-set bundle 'cross-phase-persistent? #t)
bundle)] bundle)]

3
racket/src/expander/eval/reflect-submodule.rkt
View File

@ -101,5 +101,4 @@
(hash->linklet-bundle (hash->linklet-bundle
(hash-set (linklet-bundle->hash b) (hash-set (linklet-bundle->hash b)
(if pre? 'pre 'post) (if pre? 'pre 'post)
(map module-compiled-immediate-name submods)))) (sort (map module-compiled-immediate-name submods) symbol<?))))

3726
racket/src/racket/src/startup.inc
View File

File diff suppressed because it is too large Load Diff