From 9147cd32d0efdb8fe0da1dc1c6ee4d8d5a580dd0 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Mon, 25 Apr 2005 00:14:37 +0000
Subject: [PATCH] More: (array-map!): Further tests.

---
 test-suite/tests/ramap.test | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/ramap.test b/test-suite/tests/ramap.test
index 261f6f17d..da07baf80 100644
--- a/test-suite/tests/ramap.test
+++ b/test-suite/tests/ramap.test
@@ -91,8 +91,9 @@
 	(equal? a (make-array 0 5))))
 
     ;; in Guile 1.6.4 and earlier this resulted in a segv
-    (pass-if-exception "noop" exception:wrong-num-args
-      (array-map! (make-array #f 5) noop)))
+    (pass-if "noop"
+      (array-map! (make-array #f 5) noop)
+      #t))
 
   (with-test-prefix "one source"