From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 30 May 2010 23:43:40 +0000 (-0700)
Subject: Fix typo.
X-Git-Tag: 20100708-Gtk~46
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=50155acdf38cc177aae53bcfea258a41b6fde19e;p=mit-scheme.git

Fix typo.
---

diff --git a/src/runtime/vector.scm b/src/runtime/vector.scm
index 31ec0161f..d14761d2b 100644
--- a/src/runtime/vector.scm
+++ b/src/runtime/vector.scm
@@ -81,7 +81,7 @@ USA.
 
 (define (vector-head! vector end)
   (guarantee-subvector vector 0 end 'VECTOR-HEAD!)
-  (if (fix:< end (vector-length end))
+  (if (fix:< end (vector-length vector))
       (primitive-object-set! vector 0
 			     (primitive-make-object (ucode-type false)
 						    end)))