diff options
| author |  John Cowan
| 2021-11-18 17:28:16 -0500 |
|---|---|---|
| committer | John Cowan
| 2021-11-18 17:28:16 -0500 |
| commit | 2e1d7fd3beb4f1e01b041d1d85bf4a70e72eab89 (patch) | |
| tree | 4aba3f4b7f13642b2f065aaf562d29ae0663b2bc /srfi/srfi-125-impl.scm | |
| parent | MN-W review (diff) | |
| parent | Publish fifth draft. (diff) | |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to '')
| -rw-r--r-- | srfi/srfi-125-impl.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/srfi/srfi-125-impl.scm b/srfi/srfi-125-impl.scm index 5705613..9ac64d7 100644 --- a/srfi/srfi-125-impl.scm +++ b/srfi/srfi-125-impl.scm @@ -12,7 +12,7 @@ body ... (let ((table (t125-hash-table-copy table #f))) final-expr)))))) - + (define (t125-hash-table-mutable?* dtd table) (t125-hash-table-mutable? table)) @@ -55,7 +55,7 @@ (define (t125-hash-table-map* dtd proc table) (guard-immutable table - (t125-hash-table-map! proc table) + (t125-hash-table-map! proc table) table)) (define (t125-hash-table-filter* dtd proc table) |