From: Guillermo J. Rozas Date: Fri, 15 Apr 1988 02:22:34 +0000 (+0000) Subject: Change the way first class environments are handled. X-Git-Tag: 20090517-FFI~12825 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=89cecec823604e0c298d35b34ee8b6f55de317ae;p=mit-scheme.git 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. --- 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))))))))