From 06102ff889ce02625415254ce7ca8f1ccd5e4f4e Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 20 Sep 1989 16:39:48 +0000 Subject: [PATCH] Fix another bug in first class environment code when combined with compile-by-procedures. --- v7/src/compiler/base/toplev.scm | 7 +++++-- v7/src/compiler/fggen/fggen.scm | 12 +++++------- v7/src/compiler/machines/bobcat/make.scm-68040 | 4 ++-- 3 files changed, 12 insertions(+), 11 deletions(-) diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm index 28c579e72..8cbfbeb8d 100644 --- a/v7/src/compiler/base/toplev.scm +++ b/v7/src/compiler/base/toplev.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.19 1989/08/21 19:32:32 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.20 1989/09/20 16:39:48 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -195,7 +195,10 @@ MIT in each case. |# (write-to-string (lambda-name scode))) do-it)) do-it)) - do-it))))) (if output? + (lambda () + (fluid-let ((*remote-links* '())) + (do-it)))))))) + (if output? (begin (newline) (write-string *output-prefix*) diff --git a/v7/src/compiler/fggen/fggen.scm b/v7/src/compiler/fggen/fggen.scm index 2ae7b027c..1c4598044 100644 --- a/v7/src/compiler/fggen/fggen.scm +++ b/v7/src/compiler/fggen/fggen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/fggen.scm,v 4.21 1989/09/15 17:05:22 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/fggen.scm,v 4.22 1989/09/20 16:39:24 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -719,12 +719,10 @@ MIT in each case. |# (continue/rvalue-constant block continuation (make-constant - ;; This is a temporary kludge to fix a problem with the - ;; next case. - (fluid-let ((compiler:compile-by-procedures? false)) - (compile-recursively - (scode/quotation-expression expression) - false))))) ((COMPILE-PROCEDURE) + (compile-recursively + (scode/quotation-expression expression) + false)))) + ((COMPILE-PROCEDURE) (if (not (scode/lambda? expression)) (error "Bad compile-procedure directive" comment)) (if compiler:compile-by-procedures? diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040 index 75a271d3d..aa984a5f7 100644 --- a/v7/src/compiler/machines/bobcat/make.scm-68040 +++ b/v7/src/compiler/machines/bobcat/make.scm-68040 @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.52 1989/09/15 17:08:20 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.53 1989/09/20 16:39:03 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -41,4 +41,4 @@ MIT in each case. |# ((package/reference (find-package name) 'INITIALIZE-PACKAGE!))) '((COMPILER MACROS) (COMPILER DECLARATIONS))) -(add-system! (make-system "Liar (Motorola MC68020)" 4 52 '())) \ No newline at end of file +(add-system! (make-system "Liar (Motorola MC68020)" 4 53 '())) \ No newline at end of file -- 2.25.1