Eliminate bad cold-load dependency.

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index b2386b9f55c5d437f582db09999a79825c9f7e27..510ce2929779bc7dd4ea436b69eb33596bfbd487 100644 (file)
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.39 1992/07/21 17:28:45 boogles Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.40 1992/07/21 21:57:58 cph Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -277,7 +277,7 @@ MIT in each case. |#
       (eq? object (microcode-object/unassigned))))
 
 (define unspecific
-  (object-new-type (microcode-type 'CONSTANT) 1))
+  (object-new-type (ucode-type constant) 1))
 
 (define *the-non-printing-object*
   unspecific)

diff --git a/v7/src/runtime/scomb.scm b/v7/src/runtime/scomb.scm
index 5883930c68eda5f673926a3f9defc9bc66a3e5c6..ca558bc6a93c667bc1a401308c776c2e4ed3cf42 100644 (file)
--- a/v7/src/runtime/scomb.scm
+++ b/v7/src/runtime/scomb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scomb.scm,v 14.11 1992/07/21 04:25:13 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scomb.scm,v 14.12 1992/07/21 22:04:46 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -197,7 +197,7 @@ MIT in each case. |#
   (object-type? (ucode-type conditional) object))
 
 (define undefined-conditional-branch
-  (object-new-type (microcode-type 'CONSTANT) 1))
+  (object-new-type (ucode-type constant) 1))
 
 (define-integrable (conditional-predicate conditional)
   (&triple-first conditional))

diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm
index 961f66ef71b1ede547070032bb7af91ec4b50767..e8e36d00149d2ef73336ca325f22308abea29597 100644 (file)
--- a/v7/src/runtime/uenvir.scm
+++ b/v7/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uenvir.scm,v 14.26 1992/07/21 04:25:47 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uenvir.scm,v 14.27 1992/07/21 22:01:58 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -237,7 +237,7 @@ MIT in each case. |#
   (ic-environment/set-parent! environment null-environment))
 
 (define null-environment
-  (object-new-type (microcode-type 'NULL) 1))
+  (object-new-type (ucode-type null) 1))
 
 (define (make-null-interpreter-environment)
   (let ((environment (let () (the-environment))))

diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index a3ec50dacff6c2df4bac20c15edd5e662cc1f0de..73280c4a65db3768fca52979334a183d5c0540a1 100644 (file)
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.39 1992/07/21 17:28:45 boogles Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.40 1992/07/21 21:57:58 cph Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -277,7 +277,7 @@ MIT in each case. |#
       (eq? object (microcode-object/unassigned))))
 
 (define unspecific
-  (object-new-type (microcode-type 'CONSTANT) 1))
+  (object-new-type (ucode-type constant) 1))
 
 (define *the-non-printing-object*
   unspecific)

diff --git a/v8/src/runtime/uenvir.scm b/v8/src/runtime/uenvir.scm
index 10c940018763f18c6595b5104f01428da025df8a..0ec8254f67862226568e5472b0d67461771a7777 100644 (file)
--- a/v8/src/runtime/uenvir.scm
+++ b/v8/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/uenvir.scm,v 14.26 1992/07/21 04:25:47 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/uenvir.scm,v 14.27 1992/07/21 22:01:58 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -237,7 +237,7 @@ MIT in each case. |#
   (ic-environment/set-parent! environment null-environment))
 
 (define null-environment
-  (object-new-type (microcode-type 'NULL) 1))
+  (object-new-type (ucode-type null) 1))
 
 (define (make-null-interpreter-environment)
   (let ((environment (let () (the-environment))))