* Use "'()" instead of "()" in optargs.scm.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 7b2fee1..dc33ec2 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,5 +1,8 @@
 2001-03-05  Neil Jerram  <neil@ossau.uklinux.net>
 
+       * optargs.scm (rest-arg->keyword-binding-list): Use "'()" instead
+       of "()".
+
        * buffered-input.scm: New file, with guts of line buffered input
        port implementation extracted from guile-readline/readline.scm.
 

diff --git a/ice-9/optargs.scm b/ice-9/optargs.scm
index 5de0fa4..5506a38 100644 (file)
--- a/ice-9/optargs.scm
+++ b/ice-9/optargs.scm
@@ -171,10 +171,10 @@
 
 (define (rest-arg->keyword-binding-list rest-arg keywords allow-other-keys?)
   (if (null? rest-arg)
-      ()
+      '()
       (let loop ((first (car rest-arg))
                 (rest (cdr rest-arg))
-                (accum ()))
+                (accum '()))
        (let ((next (lambda (a)
                      (if (null? (cdr rest))
                          a