guile/guile-core/test-suite/tests alist.test

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/03/03 07:14:18

Modified files:
        guile-core/test-suite/tests: alist.test 

Log message:
        * tests/alist.test: Use "'()" instead of "()" in all places
        where the empty list is meant.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/test-suite/tests/alist.test.diff?r1=1.4&r2=1.5

Patches:
Index: guile/guile-core/test-suite/tests/alist.test
diff -u guile/guile-core/test-suite/tests/alist.test:1.4 
guile/guile-core/test-suite/tests/alist.test:1.5
--- guile/guile-core/test-suite/tests/alist.test:1.4    Wed Feb 28 03:25:40 2001
+++ guile/guile-core/test-suite/tests/alist.test        Sat Mar  3 07:14:18 2001
@@ -70,8 +70,8 @@
     (if x (cdr x) x)))
   
 ;;; Creators, getters
-(let ((a (acons 'a 'b (acons 'c 'd (acons 'e 'f ()))))
-      (b (acons "this" "is" (acons "a" "test" ())))
+(let ((a (acons 'a 'b (acons 'c 'd (acons 'e 'f '()))))
+      (b (acons "this" "is" (acons "a" "test" '())))
       (deformed '(a b c d e f g)))
   (pass-if "acons"
           (and (equal? a '((a . b) (c . d) (e . f)))