mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 21:10:29 +02:00
Code Activity

* tests/alist.test: Use "'()" instead of "()" in all places

Browse source 
where the empty list is meant.
This commit is contained in:
Marius Vollmer 2001-03-03 15:14:18 +00:00
parent 5280aacabc
commit c8e39a6752
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/alist.test
View file

@ -70,8 +70,8 @@
(if x (cdr x) x))) (if x (cdr x) x)))
;;; Creators, getters ;;; Creators, getters
(let ((a (acons 'a 'b (acons 'c 'd (acons 'e 'f ())))) (let ((a (acons 'a 'b (acons 'c 'd (acons 'e 'f '()))))
(b (acons "this" "is" (acons "a" "test" ()))) (b (acons "this" "is" (acons "a" "test" '())))
(deformed '(a b c d e f g))) (deformed '(a b c d e f g)))
(pass-if "acons" (pass-if "acons"
(and (equal? a '((a . b) (c . d) (e . f))) (and (equal? a '((a . b) (c . d) (e . f)))