diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2001-03-03 15:14:18 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2001-03-03 15:14:18 +0000 |
| commit | c8e39a67525ac9619304a51822e70d4f8a5ca7cc (patch) | |
| tree | b3cba4ab462ac156a0297fd8dcf6a5e0b66a01c7 /test-suite/tests/alist.test | |
| parent | 5280aacabcc96b4178a8c0b02226fa5665324339 (diff) | |
| download | guile-c8e39a67525ac9619304a51822e70d4f8a5ca7cc.tar.gz | |
* tests/alist.test: Use "'()" instead of "()" in all places
where the empty list is meant.
Diffstat (limited to 'test-suite/tests/alist.test')
| -rw-r--r-- | test-suite/tests/alist.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/tests/alist.test b/test-suite/tests/alist.test index 796d3b193..39d676ada 100644 --- a/test-suite/tests/alist.test +++ b/test-suite/tests/alist.test @@ -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))) |