1 (define *op-table* (make-has-table 'equal))
2 (define (put op type proc)
3     (hash-table-put! *op-table* (list op type) proc))
4 (define (get op type)
5     (hash-table-get *op-table* (list op type) '()))