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

Revert "provide example for in-directory"

Browse Source 
This reverts commit 348cd7976f.
This commit is contained in:
Sam Tobin-Hochstadt 2019-10-22 20:53:55 -04:00
parent 460ca285b9
commit 01f33de537
1 changed files with 0 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
pkgs/racket-doc/scribblings/reference/sequences.scrbl
View File

@ -534,47 +534,6 @@ each element in the sequence.
@racket[path<?], and the content of a subdirectory is reported @racket[path<?], and the content of a subdirectory is reported
before subsequent paths within the directory. before subsequent paths within the directory.
@examples[
(code:comment @#,t{Given a directory tree:})
(code:comment @#,t{})
(code:comment @#,t{ /example})
(code:comment @#,t{ ├── a})
(code:comment @#,t{ │ ├── alpha})
(code:comment @#,t{ │ └── apple})
(code:comment @#,t{ ├── b})
(code:comment @#,t{ │ └── beta})
(code:comment @#,t{ └── c})
(code:comment @#,t{})
(eval:alts
(parameterize ([current-directory "/example"])
(for ([p (in-directory)])
(printf "~a\n" p)))
(for ([p (in-list '("a"
"a/alpha"
"a/apple"
"b"
"b/beta"
"c"))])
(printf "~a\n" p)))
(eval:alts
(for ([p (in-directory "/example")])
(printf "~a\n" p))
(for ([p (in-list '("/example/a"
"/example/a/alpha"
"/example/a/apple"
"/example/b"
"/example/b/beta"
"/example/c"))])
(printf "~a\n" p)))
(eval:alts
(let ([f (lambda (path) (regexp-match? #rx"/example/b.*" path))])
(for ([p (in-directory "/example" f)])
(printf "~a\n" p)))
(for ([p (in-list '("/example/a"
"/example/b"
"/example/b/beta"
"/example/c"))])
(printf "~a\n" p)))]
@history[#:changed "6.0.0.1" @elem{Added @racket[use-dir?] argument.} @history[#:changed "6.0.0.1" @elem{Added @racket[use-dir?] argument.}
#:changed "6.6.0.4" @elem{Added guarantee of sorted results.}]} #:changed "6.6.0.4" @elem{Added guarantee of sorted results.}]}