HCoop / bpt / guile.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 6128f34) | patch
fix equal? between an array and a non-array
authorAndy Wingo <wingo@pobox.com>
Tue, 30 Mar 2010 19:23:06 +0000 (21:23 +0200)
committerAndy Wingo <wingo@pobox.com>
Tue, 30 Mar 2010 19:23:06 +0000 (21:23 +0200)
commit9d031d4d575ac8f343a5d984cb02cd374577c5a9
tree6fc1ae70b97a131700967705bf70cd17f7e95df2tree | snapshot (tar.gz zip)
parent6128f34c4b6ae713c4dddc38093aafe7260ccab6commit | diff
fix equal? between an array and a non-array

* libguile/eq.c (scm_equal_p): Only call scm_array_equal_p if both
  arguments are generalized arrays; otherwise they are not equal. Thanks
  to Daniel Llorens del Río for the tip.

* test-suite/Makefile.am:
* test-suite/tests/arrays.test: Add a test.
libguile/eq.c diff | blob | blame | history
test-suite/Makefile.am diff | blob | blame | history
test-suite/tests/arrays.test [new file with mode: 0644] blob
Unnamed repository; edit this file 'description' to name the repository.