diff options
| author |  Arvydas Silanskas
| 2021-07-16 19:11:28 +0300 |
|---|---|---|
| committer | Arvydas Silanskas
| 2021-07-16 19:11:28 +0300 |
| commit | cb6da764fe752420f6d7c9591ce254ccf4100351 (patch) | |
| tree | b8f9d669ddc8f14ccff399884fd0fbba3659d438 | |
| parent | remove testing.md (diff) | |
fix pop! in 126 implementation
| -rw-r--r-- | srfi-126-impl.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/srfi-126-impl.scm b/srfi-126-impl.scm index 6ac67da..a7ecd51 100644 --- a/srfi-126-impl.scm +++ b/srfi-126-impl.scm @@ -32,9 +32,9 @@ (hashtable-update! table key updater default) table) - (define (hashtable-pop!* table fail) + (define (hashtable-pop!* table) (if (hashtable-empty? table) - (fail) + (error "popped empty dictionary") (call-with-values (lambda () (hashtable-pop! table)) (lambda (key value) (values table key value))))) |