Initialize *interned-global-links* and *interned-static-variables* and

clear them on recursive compilations.

diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index 9c07ee4609fb27e2ccd471c324dcd6d9a84a23c2..9f0c1dd9a03047e3e02f9cb5ce7b0f05def50b9b 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.33 1991/04/15 21:00:43 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.34 1991/05/06 22:45:45 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -225,6 +225,8 @@ MIT in each case. |#
      (set! *interned-variables* '())
      (set! *interned-assignments* '())
      (set! *interned-uuo-links* '())
+     (set! *interned-global-links* '())
+     (set! *interned-static-variables* '())
      (set! *block-label* (generate-label))
      (set! *external-labels* '())
      (set! *ic-procedure-headers* '())
@@ -428,14 +430,16 @@ MIT in each case. |#
              (*interned-variables*)
              (*interned-assignments*)
              (*interned-uuo-links*)
+             (*interned-global-links*)
+             (*interned-static-variables*)
              (*constants*)
              (*blocks*)
              (*expressions*)
              (*procedures*)
-             (*lvalues*)
-             (*applications*)
-             (*parallels*))
-    (fluid-let ((*input-scode*)
+             (*lvalues*))
+    (fluid-let ((*applications*)
+               (*parallels*)
+               (*input-scode*)
                (*scode*)
                (*root-expression*)
                (*root-procedure*)
@@ -481,6 +485,8 @@ MIT in each case. |#
   (set! *interned-variables*)
   (set! *interned-assignments*)
   (set! *interned-uuo-links*)
+  (set! *interned-global-links*)
+  (set! *interned-static-variables*)
   (set! *constants*)
   (set! *blocks*)
   (set! *expressions*)
@@ -977,6 +983,8 @@ MIT in each case. |#
       (set! *interned-variables* '())
       (set! *interned-assignments* '())
       (set! *interned-uuo-links* '())
+      (set! *interned-global-links* '())
+      (set! *interned-static-variables* '())
       (set! *block-label* (generate-label))
       (set! *external-labels* '())
       (if *procedure-result?*