From 593f44519c2c9842fc68ed7d743574d27a45abb8 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 20 Dec 1986 22:59:09 +0000 Subject: [PATCH] Change obsolete reference to `vector-size'. --- v7/src/compiler/machines/bobcat/instr1.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.25.1