find in Scsh

[Shriram Krishnamurthi <shriram@mahasamatman.cs.rice.edu>]

I suspect this topic has been done to death, but I'll ask anyway.  As
a disclaimer, I should add that I'm using documentation that is many
months old, but the behavior doesn't seem to have changed.

What was the rationale behind the behavior of file-match, ie, the
restriction on the depth of traversal?  Put differently, what's the
right way of getting the same output as produced by
all-html-files-below, defined as follows:

(define subdirs-of
  (lambda (dir)
    (file-match dir #t file-directory?)))

(define html-files-of  ; Could have used a glob here instead
  (lambda (dir)
    (file-match dir #t "\\.html$")))

(define all-html-files-below  ; Could have done a single flatten
  (lambda (dir)
    (append (html-files-of dir)
      (apply append (map all-html-files-below (subdirs-of dir))))))

Thanks,
'shriram