Fix code example in CodePatterns

[TedWalther]

Code Select Expand


; walks a disk directory and prints all path-file names
;
(define (show-tree dir)
    (if (directory dir)


I'm pretty sure (directory dir) above is supposed to be (directory? dir)



http://www.newlisp.org/CodePatterns.html#toc-5">http://www.newlisp.org/CodePatterns.html#toc-5



Both versions work, but I think (directory) is more likely to throw an error or fail.

[Lutz]

yes, and (directory? dir) will also be a lot faster, as it doesn't have to collect files but simply checks the file property bits.