From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Dec 1986 22:59:09 +0000 (+0000)
Subject: Change obsolete reference to `vector-size'.
X-Git-Tag: 20090517-FFI~13783
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=593f44519c2c9842fc68ed7d743574d27a45abb8;p=mit-scheme.git

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 7eb6449b9..170034c77 100644
--- 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)
 
@@ -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