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
