From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 20 Sep 2009 17:59:26 +0000 (-0400)
Subject: Signal errors with better messages in VECTOR-FIRST &c.
X-Git-Tag: 20100708-Gtk~323^2~6
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=345b804588e83fe0ad4add54fe9219df93bfc844;p=mit-scheme.git

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

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)