SRFI-43: vector-concatenate: Fix error message.

* module/srfi/srfi-43.scm (vector-concatenate): Fix the 'who' of an
  error message.

diff --git a/module/srfi/srfi-43.scm b/module/srfi/srfi-43.scm
index 88a3f3f..c1612aa 100644 (file)
--- a/module/srfi/srfi-43.scm
+++ b/module/srfi/srfi-43.scm
@@ -304,7 +304,7 @@ from the subsequent locations in VEC ..."
 
 Append each vector in LIST-OF-VECTORS.  Equivalent to:
   (apply vector-append LIST-OF-VECTORS)"
-  (assert-vectors vs 'vector-append)
+  (assert-vectors vs 'vector-concatenate)
   (%vector-concatenate vs))
 
 (define (vector-empty? vec)