diff options
| author |  Arvydas Silanskas
| 2022-02-23 19:52:23 +0200 |
|---|---|---|
| committer | Arvydas Silanskas
| 2022-02-23 19:52:23 +0200 |
| commit | 83b03507dd478b59d9d784995aa8e4333a26ee92 (patch) | |
| tree | 2c15cebeda8c756bb9139a4cd3ef786266c02604 /srfi/srfi-125-impl.scm | |
| parent | make 125, 126 impure only (diff) | |
fix srfi 125 implementation
Diffstat (limited to '')
| -rw-r--r-- | srfi/srfi-125-impl.scm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/srfi/srfi-125-impl.scm b/srfi/srfi-125-impl.scm index 9431de8..736a27c 100644 --- a/srfi/srfi-125-impl.scm +++ b/srfi/srfi-125-impl.scm @@ -19,11 +19,7 @@ (define (t125-hash-table-pop* dto table) (if (t125-hash-table-empty? table) (error "popped empty dictionary") - (let () - (define-values - (key value) - (t125-hash-table-pop! table)) - (values table key value)))) + (t125-hash-table-pop! table))) (define (t125-hash-table-delete-all* dto table keys) (for-each @@ -79,9 +75,6 @@ (define (t125-hash-table-size* dto table) (t125-hash-table-size table)) - (define (t125-hash-table-for-each* dto proc table) - (t125-hash-table-for-each proc table)) - (define (t125-hash-table-keys* dto table) (t125-hash-table-keys table)) @@ -133,7 +126,6 @@ dict-remove-id t125-hash-table-remove* dict-find-update-id t125-hash-table-find-update* dict-size-id t125-hash-table-size* - dict-for-each-id t125-hash-table-for-each* dict-keys-id t125-hash-table-keys* dict-values-id t125-hash-table-values* dict-entries-id t125-hash-table-entries* |