diff options
| author | Ricardo G. Herdt <r.herdt@posteo.de> | 2020-05-08 01:37:24 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2021-03-12 22:31:00 +0100 |
| commit | 23042a1ef9ea5054feb0c4d33a36b10115e65e18 (patch) | |
| tree | 2718ecc626cde5be0011fb0a90fe0b85a1782b8e | |
| parent | f591ad28f1bcec67f17a123766f798d16bec5373 (diff) | |
| download | guile-23042a1ef9ea5054feb0c4d33a36b10115e65e18.tar.gz | |
Fix hash-table-merge! bug.
* module/srfi/srfi-69.scm : fold over second hash table.
| -rw-r--r-- | module/srfi/srfi-69.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/srfi/srfi-69.scm b/module/srfi/srfi-69.scm index b9486c465..91bcc77db 100644 --- a/module/srfi/srfi-69.scm +++ b/module/srfi/srfi-69.scm @@ -330,7 +330,7 @@ Answer the final F result." "Add all key/value pairs from OTHER-HT to HT, overriding HT's mappings where present. Return HT." (hash-table-fold - ht (lambda (k v ign) (hash-table-set! ht k v)) #f) + other-ht (lambda (k v ign) (hash-table-set! ht k v)) #f) ht) ;;; srfi-69.scm ends here |