Fix test due to code refactoring, sort export lists in module descriptions.

This commit is contained in:
Eli Barzilay 2012-07-28 12:12:20 -04:00
parent 1eaecb8e39
commit 1afc26c79b
2 changed files with 8 additions and 3 deletions

View File

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

View File

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