Fix another bug in first class environment code when combined with

compile-by-procedures.

diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index 28c579e7298ee10628c58973b4d191ae38c3e503..8cbfbeb8d5827c9618ff00df546d98d9bd2cf54a 100644 (file)
--- 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 2ae7b027ce7df2798e240323e6fab015900146dd..1c4598044b9cd44416543f59cf97c02f27e951d0 100644 (file)
--- 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 75a271d3d31f0f5f2874129dc2c423560fa36b59..aa984a5f706ca98edbceba68e70ac456257b66c6 100644 (file)
--- 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