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-125-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-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))))) |