parent
dd5029947c
commit
db464d5ed2
|
@ -385,18 +385,20 @@ each element in the sequence.
|
|||
a sequence.
|
||||
|
||||
@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{ |})
|
||||
(code:comment @#,t{ +-- b})
|
||||
(code:comment @#,t{ | +-- beta})
|
||||
(code:comment @#,t{ |})
|
||||
(code:comment @#,t{ +-- c})
|
||||
(code:comment @#,t{})
|
||||
(code:comment "Given a directory tree:")
|
||||
(code:comment "")
|
||||
(code:comment " /example")
|
||||
(code:comment " +-- a")
|
||||
(code:comment " | |")
|
||||
(code:comment " | +-- alpha")
|
||||
(code:comment " | +-- apple")
|
||||
(code:comment " |")
|
||||
(code:comment " +-- b")
|
||||
(code:comment " | |")
|
||||
(code:comment " | +-- beta")
|
||||
(code:comment " |")
|
||||
(code:comment " +-- c")
|
||||
(code:comment "")
|
||||
(eval:alts
|
||||
(parameterize ([current-directory "/example"])
|
||||
(for ([p (in-directory)])
|
||||
|
|
Loading…
Reference in New Issue
Block a user