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 a9e9b0d..0ed5d22 100644 (file)
--- a/test-suite/tests/alist.test
+++ b/test-suite/tests/alist.test
@@ -4,7 +4,7 @@
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
 ;;;; License as published by the Free Software Foundation; either
-;;;; version 2.1 of the License, or (at your option) any later version.
+;;;; version 3 of the License, or (at your option) any later version.
 ;;;; 
 ;;;; This library is distributed in the hope that it will be useful,
 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -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))))
+                 (eqv? (car x) 2)
+                 (eqv? (cadr x) 3))))
 
 
   (pass-if-not "assoc-ref not" (assoc-ref a 'testing))