New procedure DIRECTORY-FILE-NAMES for those cases when DIRECTORY-READ

is a pain.

diff --git a/v7/src/runtime/sfile.scm b/v7/src/runtime/sfile.scm
index 358f3c1a0d3a8a748cd35b977c17231b47da08cd..2d60e401fae1635ab795943a2498e4467825c15b 100644 (file)
--- a/v7/src/runtime/sfile.scm
+++ b/v7/src/runtime/sfile.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sfile.scm,v 14.21 1999/11/19 14:10:49 cph Exp $
+$Id: sfile.scm,v 14.22 1999/11/19 14:12:53 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -53,16 +53,19 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 (define (current-file-time)
   (call-with-temporary-file-pathname file-modification-time))
 
-(define (directory-file-names directory)
+(define (directory-file-names directory #!optional include-dots?)
   (let ((channel
         (directory-channel-open
-         (->namestring (pathname-as-directory directory)))))
+         (->namestring (pathname-as-directory directory))))
+       (include-dots?
+        (if (default-object? include-dots?) #f include-dots?)))
     (let loop ((result '()))
       (let ((name (directory-channel-read channel)))
        (if name
            (loop
-            (if (or (string=? "." name)
-                    (string=? ".." name))
+            (if (and (not include-dots?)
+                     (or (string=? "." name)
+                         (string=? ".." name)))
                 result
                 (cons name result)))
            (begin