sunterlib/s48/procedure-tables/packages.scm

20 lines
524 B
Scheme
Raw Normal View History

2004-03-10 12:23:45 -05:00
(define-interface procedure-hash-interface
(export (procedure-hash (proc (:procedure) :exact-integer))))
(define-interface procedure-tables-interface
(export (make-procedure-table (proc () :value))))
(define-structure procedure-hash procedure-hash-interface
(open scheme
more-types
loopholes
closures
disclosers)
(files procedure-hash))
(define-structure procedure-tables procedure-tables-interface
(open scheme
tables
procedure-hash)
(files procedure-tables))