diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-22 00:31:42 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-22 00:31:42 -0800 |
| commit | 79e8b2534690bf7c427c28de7738705d5a372502 (patch) | |
| tree | 89eb88bf6bd704ebbe7aeac9da7be374346f6fba /hash.c | |
| parent | a5f90cf8a467ac8817ab3db5c9f8190b7a547d67 (diff) | |
| download | txr-79e8b2534690bf7c427c28de7738705d5a372502.tar.gz txr-79e8b2534690bf7c427c28de7738705d5a372502.tar.bz2 txr-79e8b2534690bf7c427c28de7738705d5a372502.zip | |
hash: hash-revget now defaults to equal.
* hash.c (hash_revget): Default to equal, except in
compatibility mode.
(hash_keys_of): Also default to equal. This function is too
new to bother with compatibility switching.
* txr.1: Documented, with compat notes.
Diffstat (limited to 'hash.c')
| -rw-r--r-- | hash.c | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -1797,7 +1797,11 @@ val hash_revget(val hash, val value, val test, val keyfun) hash_iter_init(&hi, hash, self); - test = default_arg(test, eql_f); + if (opt_compat && opt_compat <= 248) + test = default_arg(test, eql_f); + else + test = default_arg(test, equal_f); + keyfun = default_arg(keyfun, identity_f); while ((cell = hash_iter_next(&hi)) != nil) { @@ -1817,7 +1821,7 @@ val hash_keys_of(val hash, val value, val test, val keyfun) hash_iter_init(&hi, hash, self); - test = default_arg(test, eql_f); + test = default_arg(test, equal_f); keyfun = default_arg(keyfun, identity_f); while ((cell = hash_iter_next(&hi)) != nil) { |