Fix test due to code refactoring, sort export lists in module descriptions.
This commit is contained in:
parent
1eaecb8e39
commit
1afc26c79b
|
@ -151,9 +151,13 @@
|
|||
-> «,desc racket/runtime-path»
|
||||
; `racket/runtime-path' is a module,
|
||||
; located at racket/runtime-path.rkt
|
||||
; imports: mzlib/runtime-path.rkt, racket/base.rkt.
|
||||
; imports: racket/base.rkt, racket/list.rkt,
|
||||
; racket/private/runtime-path-table.rkt,
|
||||
; racket/private/this-expression-source-directory.rkt, setup/dirs.rkt.
|
||||
; imports-for-syntax: racket/base.rkt.
|
||||
; direct syntax exports: define-runtime-module-path.
|
||||
; direct syntax exports: define-runtime-module-path,
|
||||
; define-runtime-module-path-index, define-runtime-path,
|
||||
; define-runtime-path-list, define-runtime-paths, runtime-paths.
|
||||
-> «(current-directory "/( none )")» ⇒ racket allows this
|
||||
; now in /( none ) ⇒ reports without ,cd
|
||||
-> «,cd @|tmp|»
|
||||
|
|
|
@ -701,7 +701,8 @@
|
|||
(printf ".\n"))))
|
||||
(define (show-exports exports kind)
|
||||
(for ([exps (in-list exports)])
|
||||
(let ([phase (car exps)] [exps (cdr exps)])
|
||||
(let ([phase (car exps)]
|
||||
[exps (sort (cdr exps) string<? #:key symbol->string)])
|
||||
(printf "; direct ~a exports~a: ~a"
|
||||
kind (phase->name phase "-~a") (car exps))
|
||||
(for ([exp (in-list (cdr exps))]) (printf ", ~a" exp))
|
||||
|
|
Loading…
Reference in New Issue
Block a user