1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00

Fix hash-table-merge! bug.

* module/srfi/srfi-69.scm : fold over second hash table.
This commit is contained in:
Ricardo G. Herdt 2020-05-08 01:37:24 +02:00 committed by Andy Wingo
parent f591ad28f1
commit 23042a1ef9

View file

@ -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