Implement till 2.78

2020-11-18 17:54:54 -05:00
parent c061a25798
commit d8e3a4072f
2 changed files with 219 additions and 7 deletions
--- a/util.scm
+++ b/util.scm
@@ -43,5 +43,8 @@
 (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))
+  (let ((e (hash-table/get *op-table* (list op type) #f)))
+    (if (eq? e #f)
+      (error "Unknown op type -- GET" (list op type))
+      e)))