Change obsolete reference to `vector-size'.

diff --git a/v7/src/compiler/machines/bobcat/instr1.scm b/v7/src/compiler/machines/bobcat/instr1.scm
index 7eb6449b9075fda752b08ee7559650a4a21d0db3..170034c772caf2e8fa2977fe04634577bfdff54a 100644 (file)
--- a/v7/src/compiler/machines/bobcat/instr1.scm
+++ b/v7/src/compiler/machines/bobcat/instr1.scm
@@ -38,6 +38,8 @@
 ;;;; 68000 Instruction Set Description
 ;;; Originally from GJS (who did the hard part).
 
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/instr1.scm,v 1.59 1986/12/20 22:59:09 cph Exp $
+
 (declare (usual-integrations))
 (using-syntax (access assembler-syntax-table compiler-package)
 \f
@@ -48,7 +50,7 @@
 
 (define (effective-address? object)
   (and (vector? object)
-       (not (zero? (vector-size object)))
+       (not (zero? (vector-length object)))
        (eq? (vector-ref object 0) ea-tag)))
 
 (define ea-tag