From c26ea57214428ada109deece873d376341014399 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 18 Aug 1987 18:29:18 +0000 Subject: [PATCH] Fix parenthesis mismatch. --- v7/src/compiler/machines/vax/insutl.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/vax/insutl.scm b/v7/src/compiler/machines/vax/insutl.scm index 7145078cb..130fb1519 100644 --- a/v7/src/compiler/machines/vax/insutl.scm +++ b/v7/src/compiler/machines/vax/insutl.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/insutl.scm,v 1.2 1987/08/14 05:03:45 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/insutl.scm,v 1.3 1987/08/18 18:29:18 jinx Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -48,7 +48,7 @@ MIT in each case. |# (define (effective-address? object) (and (vector? object) (not (zero? (vector-length object))) - (eq? (vector-ref object 0) ea-tag)) + (eq? (vector-ref object 0) ea-tag))) (define-integrable (ea-keyword ea) (vector-ref ea 1)) -- 2.25.1