guile/guile-scsh ChangeLog syscalls.scm

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   01/05/25 13:09:15

Modified files:
        guile-scsh     : ChangeLog syscalls.scm 

Log message:
        * syscalls.scm (directory-files): initialise result with '(), not ().
        Thanks to Paul Emsley.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/ChangeLog.diff?cvsroot=OldCVS&tr1=1.54&tr2=1.55&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/syscalls.scm.diff?cvsroot=OldCVS&tr1=1.14&tr2=1.15&r1=text&r2=text

Patches:
Index: guile/guile-scsh/ChangeLog
diff -u guile/guile-scsh/ChangeLog:1.54 guile/guile-scsh/ChangeLog:1.55
--- guile/guile-scsh/ChangeLog:1.54     Fri May 25 10:06:59 2001
+++ guile/guile-scsh/ChangeLog  Fri May 25 13:09:15 2001
@@ -1,5 +1,8 @@
 2001-05-25  Gary Houston  <address@hidden>
 
+       * syscalls.scm (directory-files): initialise result with '(), not ().
+       Thanks to Paul Emsley.
+
        * netconst.scm (options/linger etc.) use '() not () for recent CVS
        guile.  Thanks to Paul Emsley.
 
Index: guile/guile-scsh/syscalls.scm
diff -u guile/guile-scsh/syscalls.scm:1.14 guile/guile-scsh/syscalls.scm:1.15
--- guile/guile-scsh/syscalls.scm:1.14  Mon Dec  4 15:18:03 2000
+++ guile/guile-scsh/syscalls.scm       Fri May 25 13:09:15 2001
@@ -811,7 +811,7 @@
                 (check-arg string? dir directory-files)
                 (let ((dport (opendir
                               (ensure-file-name-is-nondirectory dir))))
-                  (let loop ((result ()))
+                  (let loop ((result '()))
                     (let ((entry (readdir dport)))
                       (cond ((eof-object? entry)
                              (closedir dport)