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))))
|
|
|
|
|
2003-10-09 14:50:19 -04:00
|
|
|
(define-structure procedure-hash procedure-hash-interface
|
|
|
|
(open scheme
|
|
|
|
more-types
|
|
|
|
loopholes
|
|
|
|
closures
|
2003-10-27 17:09:02 -05:00
|
|
|
disclosers)
|
2003-10-09 14:50:19 -04:00
|
|
|
(files procedure-hash))
|
|
|
|
|
|
|
|
(define-structure procedure-tables procedure-tables-interface
|
|
|
|
(open scheme
|
|
|
|
tables
|
|
|
|
procedure-hash)
|
|
|
|
(files procedure-tables))
|