diff options
| author |  Arvydas Silanskas
| 2021-07-16 18:43:46 +0300 |
|---|---|---|
| committer | Arvydas Silanskas
| 2021-07-16 18:43:46 +0300 |
| commit | daba579d990e5320ab731ba0a3837d8f3c2d58bf (patch) | |
| tree | c0da4622aa060c08546fab2fb4c8c056646a959a /srfi-125-impl.scm | |
| parent | formatting (diff) | |
add makefile for testing; test with more implementations; move library to .sld; fix srfi-125 pop!
Diffstat (limited to 'srfi-125-impl.scm')
| -rw-r--r-- | srfi-125-impl.scm | 4 |
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))))) |