Signal errors with better messages in VECTOR-FIRST &c.

diff --git a/src/runtime/vector.scm b/src/runtime/vector.scm
index 29de2058b27fe677d8d4dae3c8686611dac4c05d..2ae2355bf50cd8cf7493a84f701d72a932d3462e 100644 (file)
--- a/src/runtime/vector.scm
+++ b/src/runtime/vector.scm
@@ -216,7 +216,7 @@ USA.
       (sc-macro-transformer
        (lambda (form environment)
         `(DEFINE-INTEGRABLE (,(cadr form) VECTOR)
-           (GUARANTEE-VECTOR VECTOR 'SAFE-VECTOR-REF)
+           (GUARANTEE-VECTOR VECTOR ',(cadr form))
            (VECTOR-REF VECTOR ,(caddr form)))))))
   (iref vector-first 0)
   (iref vector-second 1)