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-125-impl.scm | |
| parent | Merge branch 'master' of https://github.com/johnwcowan/srfi-225 (diff) | |
update implementation
Diffstat (limited to 'srfi/srfi-125-impl.scm')
| -rw-r--r-- | srfi/srfi-125-impl.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/srfi/srfi-125-impl.scm b/srfi/srfi-125-impl.scm index bbc5543..a63aba9 100644 --- a/srfi/srfi-125-impl.scm +++ b/srfi/srfi-125-impl.scm @@ -13,8 +13,8 @@ (let ((table (t125-hash-table-copy table #f))) final-expr)))))) - (define (t125-hash-table-mutable?* dto table) - (t125-hash-table-mutable? table)) + (define (t125-hash-table-pure?* dto table) + (not (t125-hash-table-mutable? table))) (define (t125-hash-table-set* dto table . obj) (guard-immutable table @@ -151,7 +151,7 @@ (make-dto dictionary?-id t125-hash-table?* - dict-mutable?-id t125-hash-table-mutable?* + dict-pure?-id t125-hash-table-pure?* dict-empty?-id t125-hash-table-empty?* dict-contains?-id t125-hash-table-contains?* dict-ref-id t125-hash-table-ref* |