From 0c46c3679b8851c2f56b9de0620c9fc5e973a058 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Jul 1992 22:04:46 +0000
Subject: [PATCH] Eliminate bad cold-load dependency.

---
 v7/src/runtime/global.scm | 6 +++---
 v7/src/runtime/scomb.scm  | 4 ++--
 v7/src/runtime/uenvir.scm | 4 ++--
 v8/src/runtime/global.scm | 6 +++---
 v8/src/runtime/uenvir.scm | 4 ++--
 5 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index b2386b9f5..510ce2929 100644
--- 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 5883930c6..ca558bc6a 100644
--- 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 961f66ef7..e8e36d001 100644
--- 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 a3ec50dac..73280c4a6 100644
--- 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 10c940018..0ec8254f6 100644
--- 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))))
-- 
2.25.1