Answer till 3.45

2020-12-29 14:00:47 -05:00
parent 7bb4ba9040
commit dce7ffebf9
3 changed files with 49 additions and 4 deletions
--- a/ex-2_73-76.scm
+++ b/ex-2_73-76.scm
@@ -2,6 +2,12 @@

 (newline) (display "ex-2.73 - deriv data-directed") (newline)

+(define *op-table* (make-hash-table))
+(define (put op type proc)
+  (hash-table/put! *op-table* (list op type) proc))
+(define (get op type)
+  (hash-table/get *op-table* (list op type) #f))
+
 (display "a. - see comments\n")
 ; a.