(define-interface procedure-hash-interface
(export (procedure-hash (proc (:procedure) :exact-integer))))
(define-interface procedure-tables-interface
(export (make-procedure-table (proc () :value))))