Implement HASH-TABLE/TYPE.

diff --git a/v7/src/runtime/hashtb.scm b/v7/src/runtime/hashtb.scm
index 06533393c78657460123df2cd15329b58d9dc658..f1601c3221a72515c7fbd4b5a58c76a5744af1a1 100644 (file)
--- a/v7/src/runtime/hashtb.scm
+++ b/v7/src/runtime/hashtb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: hashtb.scm,v 1.38 2008/01/30 20:02:31 cph Exp $
+$Id: hashtb.scm,v 1.39 2008/08/20 09:01:31 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -111,6 +111,10 @@ USA.
          (set! address-hash-tables (weak-cons table address-hash-tables)))
       table)))
 
+(define (hash-table/type table)
+  (guarantee-hash-table table 'HASH-TABLE/TYPE)
+  (table-type table))
+
 (define (hash-table/key-hash table)
   (guarantee-hash-table table 'HASH-TABLE/KEY-HASH)
   (table-type-key-hash (table-type table)))

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 57a538af9723b3e97502028a5c82221b5a1ecf41..d4e0125f29e202c2f0453328effdc6d8e78aab94 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.657 2008/08/18 06:56:14 cph Exp $
+$Id: runtime.pkg,v 14.658 2008/08/20 09:01:35 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -1874,6 +1874,7 @@ USA.
          hash-table/rehash-threshold
          hash-table/remove!
          hash-table/size
+         hash-table/type
          hash-table?
          make-eq-hash-table
          make-equal-hash-table