Eliminate FUTURE?.

diff --git a/v7/src/runtime/boot.scm b/v7/src/runtime/boot.scm
index 9d85c72ff6fb3e3cfee06af3d317d9eb90365f51..15aa31ee8984e49cf752b58c615b25e50bff463b 100644 (file)
--- a/v7/src/runtime/boot.scm
+++ b/v7/src/runtime/boot.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: boot.scm,v 14.22 2006/03/09 19:18:29 cph Exp $
+$Id: boot.scm,v 14.23 2006/09/06 04:49:40 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1992 Massachusetts Institute of Technology
 Copyright 1993,1996,2001,2004,2005,2006 Massachusetts Institute of Technology
@@ -130,9 +130,6 @@ USA.
   (object-constant? constant?)
   gc-space-status)
 
-(define-integrable (future? object)
-  ((ucode-primitive object-type? 2) (ucode-type future) object))
-
 (define-integrable (default-object? object)
   (eq? object (default-object)))
 

diff --git a/v7/src/runtime/gdatab.scm b/v7/src/runtime/gdatab.scm
index ea131b916474468bad0a25fcb94375ac89b04986..92b7ef8f3baf7733465cbe2fd33348acfaeaf761 100644 (file)
--- a/v7/src/runtime/gdatab.scm
+++ b/v7/src/runtime/gdatab.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: gdatab.scm,v 14.8 2003/02/14 18:28:32 cph Exp $
+$Id: gdatab.scm,v 14.9 2006/09/06 04:49:45 cph Exp $
 
-Copyright (c) 1988, 1989, 1990, 1999 Massachusetts Institute of Technology
+Copyright 1988,1989,1990,2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -34,7 +34,8 @@ USA.
   (set! event:before-exit (make-event-distributor))
   (set! tagged-pair-methods (make-1d-table))
   (set! tagged-vector-methods (make-1d-table))
-  (set! named-structure-descriptions (make-1d-table)))
+  (set! named-structure-descriptions (make-1d-table))
+  unspecific)
 
 (define event:after-restore)
 (define event:after-restart)
@@ -44,21 +45,19 @@ USA.
 (define named-structure-descriptions)
 
 (define (unparser/tagged-pair-method tag)
-  (and (not (future? tag))
-       (1d-table/get tagged-pair-methods tag false)))
+  (1d-table/get tagged-pair-methods tag #f))
 
 (define (unparser/set-tagged-pair-method! tag method)
   (1d-table/put! tagged-pair-methods tag method))
 
 (define (unparser/tagged-vector-method tag)
-  (and (not (future? tag))
-       (1d-table/get tagged-vector-methods tag false)))
+  (1d-table/get tagged-vector-methods tag #f))
 
 (define (unparser/set-tagged-vector-method! tag method)
   (1d-table/put! tagged-vector-methods tag method))
 
 (define (named-structure/get-tag-description tag)
-  (1d-table/get named-structure-descriptions tag false))
+  (1d-table/get named-structure-descriptions tag #f))
 
 (define (named-structure/set-tag-description! tag description)
   (1d-table/put! named-structure-descriptions tag description))

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 63d9cbb7bfbf61c7a02c20635bd40198d7e387f9..2cc62afe567b6c8d30326d72da8a65cd7714bf14 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.592 2006/08/09 05:48:53 savannah-arthur Exp $
+$Id: runtime.pkg,v 14.593 2006/09/06 04:49:53 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1996,1997,1998,1999 Massachusetts Institute of Technology
@@ -140,7 +140,6 @@ USA.
          default-object
          default-object?
          error:not-unparser-method
-         future?
          gc-space-status
          guarantee-unparser-method
          interrupt-bit/after-gc