From 467286c5deb6cf2655ea141d13f21575fee77a67 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 24 Aug 1987 21:22:04 +0000 Subject: [PATCH] Make-effective-address is no longer integrated because the early instruction code expects it not to be integrated. --- 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 852da2e3b..3945650d5 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.6 1987/08/22 22:44:35 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/insutl.scm,v 1.7 1987/08/24 21:22:04 jinx Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -42,7 +42,7 @@ MIT in each case. |# (define ea-tag 'Effective-Address) -(define-integrable (make-effective-address keyword categories value) +(define (make-effective-address keyword categories value) (vector ea-tag keyword categories value)) (define (effective-address? object) -- 2.25.1