From 345b804588e83fe0ad4add54fe9219df93bfc844 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 20 Sep 2009 13:59:26 -0400
Subject: [PATCH] Signal errors with better messages in VECTOR-FIRST &c.

---
 src/runtime/vector.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/vector.scm b/src/runtime/vector.scm
index 29de2058b..2ae2355bf 100644
--- 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)
-- 
2.25.1