From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 27 Jul 1995 20:31:23 +0000 (+0000)
Subject: Changed bit pattern associated with unspecific.
X-Git-Tag: 20090517-FFI~6113
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5bba96251907c34b56f46d18945e82dfd193e893;p=mit-scheme.git

Changed bit pattern associated with unspecific.
This really ought to be done by asking the microcode.
---

diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index 5c01b769b..b75a977d6 100644
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: global.scm,v 14.48 1995/05/03 21:37:11 adams Exp $
+$Id: global.scm,v 14.49 1995/07/27 20:31:23 adams Exp $
 
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-95 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -302,7 +302,7 @@ MIT in each case. |#
       (eq? object (microcode-object/unassigned))))
 
 (define unspecific
-  (object-new-type (ucode-type constant) 1))
+  (object-new-type (ucode-type constant) #x3800000))
 
 (define *the-non-printing-object*
   unspecific)