HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
GOOPS cosmetics
[bpt/guile.git]
/
test-suite
/
tests
/
alist.test
diff --git
a/test-suite/tests/alist.test
b/test-suite/tests/alist.test
index
699c10e
..
0ed5d22
100644
(file)
--- a/
test-suite/tests/alist.test
+++ b/
test-suite/tests/alist.test
@@
-124,8
+124,8
@@
(pass-if "assoc-ref"
(let ((x (assoc-ref b "one")))
(and (list? x)
- (eq? (car x) 2)
- (eq? (cadr x) 3))))
+ (eq
v
? (car x) 2)
+ (eq
v
? (cadr x) 3))))
(pass-if-not "assoc-ref not" (assoc-ref a 'testing))