make a little more space and stop decoding

(improvements to dd50299)
This commit is contained in:
Robby Findler 2015-11-08 07:56:39 -06:00
parent dd5029947c
commit db464d5ed2

View File

@ -385,18 +385,20 @@ each element in the sequence.
a sequence. a sequence.
@examples[ @examples[
(code:comment @#,t{Given a directory tree:}) (code:comment "Given a directory tree:")
(code:comment @#,t{}) (code:comment "")
(code:comment @#,t{ /example}) (code:comment " /example")
(code:comment @#,t{ +-- a}) (code:comment " +-- a")
(code:comment @#,t{ | +-- alpha}) (code:comment " | |")
(code:comment @#,t{ | +-- apple}) (code:comment " | +-- alpha")
(code:comment @#,t{ |}) (code:comment " | +-- apple")
(code:comment @#,t{ +-- b}) (code:comment " |")
(code:comment @#,t{ | +-- beta}) (code:comment " +-- b")
(code:comment @#,t{ |}) (code:comment " | |")
(code:comment @#,t{ +-- c}) (code:comment " | +-- beta")
(code:comment @#,t{}) (code:comment " |")
(code:comment " +-- c")
(code:comment "")
(eval:alts (eval:alts
(parameterize ([current-directory "/example"]) (parameterize ([current-directory "/example"])
(for ([p (in-directory)]) (for ([p (in-directory)])