add makefile for testing; test with more implementations; move library to .sld; fix srfi-125 pop!

1 files changed, 2 insertions, 2 deletions

diff --git a/srfi-125-impl.scm b/srfi-125-impl.scm
index b683a2a..0527547 100644
--- a/srfi-125-impl.scm
+++ b/srfi-125-impl.scm
@@ -16,9 +16,9 @@
     (define val (hash-table-intern! table key failure))
     (values table val))
   
-  (define (hash-table-pop!* table fail)
+  (define (hash-table-pop!* table)
     (if (hash-table-empty? table)
-        (fail)
+        (error "popped empty dictionary")
         (call-with-values
           (lambda () (hash-table-pop! table))
           (lambda (key value) (values table key value)))))