diff options
| author |  Arvydas Silanskas
| 2022-02-15 14:13:27 +0200 |
|---|---|---|
| committer | Arvydas Silanskas
| 2022-02-15 14:13:27 +0200 |
| commit | fd3fcee4477de39c74ec4c88964d671bf43fd071 (patch) | |
| tree | c71eaea1223060db846dcd40e34ae29c5a4153e5 /srfi/srfi-69-impl.scm | |
| parent | Merge branch 'master' of https://github.com/johnwcowan/srfi-225 (diff) | |
update implementation
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!* |