diff options
| author |  John Cowan
| 2022-03-15 15:32:54 -0400 |
|---|---|---|
| committer |  GitHub
| 2022-03-15 15:32:54 -0400 |
| commit | a7f2c6a51139c210e4d62ab1447830cc525de21a (patch) | |
| tree | 2c15cebeda8c756bb9139a4cd3ef786266c02604 /srfi/srfi-69-impl.scm | |
| parent | Update srfi-225.html (diff) | |
| parent | fix srfi 125 implementation (diff) | |
Merge pull request #3 from arvyy/master
Implementation update
Diffstat (limited to 'srfi/srfi-69-impl.scm')
| -rw-r--r-- | srfi/srfi-69-impl.scm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/srfi/srfi-69-impl.scm b/srfi/srfi-69-impl.scm index c61036e..dfa9b76 100644 --- a/srfi/srfi-69-impl.scm +++ b/srfi/srfi-69-impl.scm @@ -5,8 +5,8 @@ (lambda (dto . args) (apply proc args))) - (define (t69-hash-table-mutable?* dto table) - #t) + (define (t69-hash-table-pure?* dto table) + #f) (define (t69-hash-table-ref* dto table key fail success) (define default (cons #f #f)) @@ -34,9 +34,6 @@ keys) table) - (define (t69-hash-table-foreach* dto proc table) - (t69-hash-table-walk table proc)) - (define (t69-hash-table-map!* dto proc table) (t69-hash-table-walk table (lambda (key value) (t69-hash-table-set! table key (proc key value)))) @@ -86,7 +83,7 @@ (make-dto dictionary?-id (prep-dto-arg t69-hash-table?) - dict-mutable?-id t69-hash-table-mutable?* + dict-pure?-id t69-hash-table-pure?* dict-ref-id t69-hash-table-ref* dict-ref/default-id (prep-dto-arg t69-hash-table-ref/default) dict-set-id t69-hash-table-set!* @@ -98,7 +95,6 @@ dict-values-id (prep-dto-arg t69-hash-table-values) dict-map-id t69-hash-table-map!* dict-filter-id t69-hash-table-filter!* - dict-for-each-id t69-hash-table-foreach* dict-fold-id t69-hash-table-fold* dict->alist-id (prep-dto-arg t69-hash-table->alist) dict-find-update-id t69-hash-table-find-update!* |