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

fix some docs and tests

Browse Source 
svn: r10176
This commit is contained in:
Matthew Flatt 2008-06-06 15:39:59 +00:00
parent 762e04ba60
commit 5f5c70eafb
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/syntax/scribblings/modcollapse.scrbl
View File

@ -20,7 +20,11 @@ The result can be a path if @scheme[module-path-v] contains a path
element that is needed for the result, or if
@scheme[rel-to-module-path-v] is a non-string path that is needed for
the result; otherwise, the result is a module path in the sense of
@scheme[module-path?].}
@scheme[module-path?].
When the result is a @scheme['lib] or @scheme['planet] module path, it
is normalized so that equivalent module paths are represented by
@scheme[equal?] results.}
@defproc[(collapse-module-path-index [module-path-index module-path-index?]
[rel-to-module-path-v any/c])

2
collects/tests/mzscheme/module.ss
View File

@ -385,7 +385,7 @@
(test #f module-path? '(planet "foo.ss"))
(test #t module-path? '(planet "foo.ss" ("robby" "redex.plt")))
(test #f module-path? '(planet "../foo.ss" ("robby" "redex.plt")))
(test #t module-path? '(planet "foo.ss" ("robby" "redex.plt" (7 8))))
(test #t module-path? '(planet "foo.ss" ("robby" "redex.plt" 7 (7 8))))
(test #t module-path? '(planet "foo.ss" ("robby" "redex.plt" 7 8)))
(test #t module-path? '(planet "foo.ss" ("robby" "redex.plt" 7 (= 8))))
(test #t module-path? '(planet "foo.ss" ("robby" "redex.plt") "sub" "deeper"))