[Guile-commits] GNU Guile branch, master, updated. v2.1.0-726-gd41d5bf

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=d41d5bf05ecea7ac0bb30a501ba4801043991b63

The branch, master has been updated
       via  d41d5bf05ecea7ac0bb30a501ba4801043991b63 (commit)
       via  19239bbfcb89dfaf6ae3c40896645b0dbbc4783a (commit)
      from  cf64dca65c4ee4d845a73e7d7c15ab7583aff15b (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
-----------------------------------------------------------------------

Summary of changes:
 libguile/array-map.c         |    3 ++-
 test-suite/tests/arrays.test |    8 +++++++-
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/libguile/array-map.c b/libguile/array-map.c
index bef539d..f3f95bc 100644
--- a/libguile/array-map.c
+++ b/libguile/array-map.c
@@ -169,7 +169,8 @@ scm_ramapc (void *cproc_ptr, SCM data, SCM ra0, SCM lra, 
const char *what)
       if (kmax < 0)
        goto gencase;
       vra0 = scm_array_contents (ra0, SCM_UNDEFINED);
-      if (SCM_IMP (vra0)) goto gencase;
+      if (scm_is_false (vra0))
+        goto gencase;
       if (!SCM_I_ARRAYP (vra0))
        {
          size_t length = scm_c_array_length (vra0);
diff --git a/test-suite/tests/arrays.test b/test-suite/tests/arrays.test
index 090338f..eed5031 100644
--- a/test-suite/tests/arrays.test
+++ b/test-suite/tests/arrays.test
@@ -188,7 +188,13 @@
       (pass-if (eq? #f (typed-array? float    #t)))
       (pass-if (eq? #f (typed-array? double   #t)))
       (pass-if (eq? #f (typed-array? complex  #t)))
-      (pass-if (eq? #t (typed-array? scm      #t))))))
+      (pass-if (eq? #t (typed-array? scm      #t))))
+
+    (with-test-prefix "typed-array? returns #f"
+      (pass-if (eq? #f (typed-array? '(1 2 3) 'c64)))
+      (pass-if (eq? #f (typed-array? '(1 2 3) #t)))
+      (pass-if (eq? #f (typed-array? 99 'c64)))
+      (pass-if (eq? #f (typed-array? 99 #t))))))
 
 ;;;
 ;;; array-equal?


hooks/post-receive
-- 
GNU Guile