diff options
| author |  John Cowan
| 2021-07-16 13:56:15 -0400 |
|---|---|---|
| committer |  GitHub
| 2021-07-16 13:56:15 -0400 |
| commit | fd99f8fe0f30fdf4642d54e78ef17e1bda227a06 (patch) | |
| tree | b8f9d669ddc8f14ccff399884fd0fbba3659d438 /srfi-126-impl.scm | |
| parent | formatting (diff) | |
| parent | fix pop! in 126 implementation (diff) | |
Merge pull request #5 from arvyy/master
Fix pop! in 125 implementation, move testing to makefile, add support for more implementations
Diffstat (limited to 'srfi-126-impl.scm')
| -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))))) |