From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 18 Dec 1993 07:15:57 +0000 (+0000)
Subject: Fix bug in previous change.
X-Git-Tag: 20090517-FFI~7359
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f07adaca9ae219e549f553a61be8fa9e42a25e7d;p=mit-scheme.git

Fix bug in previous change.
---

diff --git a/v7/src/compiler/back/bittop.scm b/v7/src/compiler/back/bittop.scm
index 1f333b6c7..0e4c74ef3 100644
--- a/v7/src/compiler/back/bittop.scm
+++ b/v7/src/compiler/back/bittop.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: bittop.scm,v 1.18 1993/12/09 01:17:55 gjr Exp $
+$Id: bittop.scm,v 1.19 1993/12/18 07:15:57 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -184,7 +184,7 @@ MIT in each case. |#
 	      (let ((ob (object-new-type (ucode-type vector) output-block)))
 		(subvector-fill! ob
 				 (fix:+ bl 1)
-				 (vector-length ob)
+				 (system-vector-length ob)
 				 #f)
 		(vector-set! ob 0
 			     ((ucode-primitive primitive-object-set-type)