From 89cecec823604e0c298d35b34ee8b6f55de317ae Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr> Date: Fri, 15 Apr 1988 02:22:34 +0000 Subject: [PATCH] Change the way first class environments are handled. There is an extra phase at the front end which translates implicit environment manipulation operations into explicit ones. --- v7/src/compiler/machines/bobcat/dassm3.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/dassm3.scm b/v7/src/compiler/machines/bobcat/dassm3.scm index f4421194d..66e9b753b 100644 --- a/v7/src/compiler/machines/bobcat/dassm3.scm +++ b/v7/src/compiler/machines/bobcat/dassm3.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/dassm3.scm,v 4.2 1988/01/02 21:02:45 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/dassm3.scm,v 4.3 1988/04/15 02:22:34 jinx Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -407,7 +407,7 @@ MIT in each case. |# (cond ((= displacement 0) `(W ,(make-pc-relative (lambda () (fetch-immediate 'W))))) ((= displacement -1) - `(L (make-pc-relative (lambda () (fetch-immediate 'L))))) + `(L ,(make-pc-relative (lambda () (fetch-immediate 'L))))) (else `(B ,(make-pc-relative (lambda () displacement)))))))) -- 2.25.1