From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 6 Sep 2006 04:49:53 +0000 (+0000)
Subject: Eliminate FUTURE?.
X-Git-Tag: 20090517-FFI~948
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4daa285dd9be214ef0b175a55143fac0bc674880;p=mit-scheme.git

Eliminate FUTURE?.
---

diff --git a/v7/src/runtime/boot.scm b/v7/src/runtime/boot.scm
index 9d85c72ff..15aa31ee8 100644
--- 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 ea131b916..92b7ef8f3 100644
--- 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 63d9cbb7b..2cc62afe5 100644
--- 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