[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/test-suite/tests alist.test
From: |
Marius Vollmer |
Subject: |
guile/guile-core/test-suite/tests alist.test |
Date: |
Sat, 03 Mar 2001 07:14:19 -0800 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/test-suite/tests alist.test,
Marius Vollmer <=