1 665c255d 2023-08-04 jrmu (define *op-table* (make-has-table 'equal))
2 665c255d 2023-08-04 jrmu (define (put op type proc)
3 665c255d 2023-08-04 jrmu     (hash-table-put! *op-table* (list op type) proc))