20 lines
524 B
Scheme
20 lines
524 B
Scheme
(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))
|