Gah, _really_ a new PROCEDURE-TABLES library...I can't believe I forgot to 'cvs add' it before committing.

s48/procedure-tables/AUTHORS

@@ -0,0 +1 @@
+Taylor Campbell

s48/procedure-tables/BLURB

@@ -0,0 +1 @@
+procedure-tables: PROCEDURE-HASH and MAKE-PROCEDURE-TABLE for tables whose keys are procedures

s48/procedure-tables/README

@@ -0,0 +1,3 @@
+PROCEDURE-HASH defines PROCEDURE-HASH, which takes a procedure and
+returns its hash value.  PROCEDURE-TABLES defines MAKE-PROCEDURE-TABLE,
+which returns a table whose keys are procedures.

s48/procedure-tables/interfaces.scm

@@ -0,0 +1,5 @@
+(define-interface procedure-hash-interface
+  (export (procedure-hash (proc (:procedure) :exact-integer))))
+
+(define-interface procedure-tables-interface
+  (export (make-procedure-table (proc () :value))))

s48/procedure-tables/packages.scm

@@ -0,0 +1,14 @@
+(define-structure procedure-hash procedure-hash-interface
+  (open scheme
+        more-types
+        loopholes
+        closures
+        disclosers
+        debug-data)
+  (files procedure-hash))
+
+(define-structure procedure-tables procedure-tables-interface
+  (open scheme
+        tables
+        procedure-hash)
+  (files procedure-tables))

s48/procedure-tables/procedure-hash.scm

@@ -0,0 +1,11 @@
+;;; This file is part of the Scheme Untergrund Library.
+
+;;; Copyright (c) 2003 by Taylor Campbell
+;;; For copyright information, see the file COPYING which comes with
+;;; the distribution.
+
+(define (procedure-hash proc)
+  (debug-data-uid
+   (template-debug-data
+    (closure-template
+     (loophole :closure proc)))))

s48/procedure-tables/procedure-tables.scm

@@ -0,0 +1,8 @@
+;;; This file is part of the Scheme Untergrund Library.
+
+;;; Copyright (c) 2003 by Taylor Campbell
+;;; For copyright information, see the file COPYING which comes with
+;;; the distribution.
+
+(define make-procedure-table
+  (make-table-maker eq? procedure-hash))