* Eliminate some calls to scm_wta.

[bpt/guile.git] / libguile / ramap.c

diff --git a/libguile/ramap.c b/libguile/ramap.c
index 1db100b..7ef0912 100644 (file)
--- a/libguile/ramap.c
+++ b/libguile/ramap.c
@@ -329,7 +329,7 @@ scm_ramapc (int (*cproc)(), SCM data, SCM ra0, SCM lra, const char *what)
     {
     default:
     case 0:
-      scm_wta (ra0, "array shape mismatch", what);
+      scm_misc_error (what, "array shape mismatch: ~S", ra0);
     case 2:
     case 3:
     case 4:                    /* Try unrolling arrays */