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

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

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

8
collects/tests/xrepl/xrepl.rkt
View File

@ -151,9 +151,13 @@
-> «,desc racket/runtime-path» -> «,desc racket/runtime-path»
; `racket/runtime-path' is a module, ; `racket/runtime-path' is a module,
; located at racket/runtime-path.rkt ; 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. ; 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 -> «(current-directory "/( none )")» ⇒ racket allows this
; now in /( none ) ⇒ reports without ,cd ; now in /( none ) ⇒ reports without ,cd
-> «,cd @|tmp|» -> «,cd @|tmp|»

3
collects/xrepl/xrepl.rkt
View File

@ -701,7 +701,8 @@
(printf ".\n")))) (printf ".\n"))))
(define (show-exports exports kind) (define (show-exports exports kind)
(for ([exps (in-list exports)]) (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" (printf "; direct ~a exports~a: ~a"
kind (phase->name phase "-~a") (car exps)) kind (phase->name phase "-~a") (car exps))
(for ([exp (in-list (cdr exps))]) (printf ", ~a" exp)) (for ([exp (in-list (cdr exps))]) (printf ", ~a" exp))