guile/guile-core/ice-9 boot-9.scm rdelim.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/03/03 06:58:22

Modified files:
        guile-core/ice-9: boot-9.scm rdelim.scm 

Log message:
        * boot-9.scm, rdelim.scm: Use "'()" instead of "()" in all places
        where the empty list is meant.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/boot-9.scm.diff?r1=1.227&r2=1.228
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/rdelim.scm.diff?r1=1.2&r2=1.3

Patches:
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.227 
guile/guile-core/ice-9/boot-9.scm:1.228
--- guile/guile-core/ice-9/boot-9.scm:1.227     Mon Feb 26 19:19:36 2001
+++ guile/guile-core/ice-9/boot-9.scm   Sat Mar  3 06:58:22 2001
@@ -2745,5 +2745,5 @@
 
 (define-module (guile))
 
-(append! %load-path (cons "." ()))
+(append! %load-path (cons "." '()))
 
Index: guile/guile-core/ice-9/rdelim.scm
diff -u guile/guile-core/ice-9/rdelim.scm:1.2 
guile/guile-core/ice-9/rdelim.scm:1.3
--- guile/guile-core/ice-9/rdelim.scm:1.2       Wed Jan 24 13:45:09 2001
+++ guile/guile-core/ice-9/rdelim.scm   Sat Mar  3 06:58:22 2001
@@ -95,7 +95,7 @@
         (handle-delim (if (pair? args)
                           (car args)
                           'trim)))
-    (let loop ((substrings ())
+    (let loop ((substrings '())
               (total-chars 0)
               (buf-size 100))          ; doubled each time through.
       (let* ((buf (make-string buf-size))