diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2014-10-24 08:41:09 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2014-10-24 08:41:09 -0700 |
commit | 57276037c1357e54730a94fb1191362d4f694252 (patch) | |
tree | f933609cb8870c42478a71a2c3f3b416c93d57aa /hash.c | |
parent | 43418aad5d8214c1b60b080dff2c36a2caf27391 (diff) | |
download | txr-57276037c1357e54730a94fb1191362d4f694252.tar.gz txr-57276037c1357e54730a94fb1191362d4f694252.tar.bz2 txr-57276037c1357e54730a94fb1191362d4f694252.zip |
* Makefile: Removing trailing spaces.
(GREP_CHECK): New macro.
(enforce): Rewritten using GREP_CHECK, with new checks.
* arith.c, combi.c, debug.c, eval.c, filter.c, gc.c, hash.c, lib.c,
* lib.h, match.c, parser.l, parser.y, rand.c, regex.c, signal.c,
* signal.h, stream.c, syslog.c, txr.c, unwind.c, utf8.c: Remove
trailing spaces.
Diffstat (limited to 'hash.c')
-rw-r--r-- | hash.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -269,7 +269,7 @@ static val hash_equal_op(val left, val right) * If it is found, and the associated datum is equal, then remove it from * the list. If it is found and the data is not equal, then we have found * a difference between the hash tables, and conclude they are different. - * If there is no match, then we insert the cell into the pending list. + * If there is no match, then we insert the cell into the pending list. */ found = l->assoc_fun(car(lcell), pending); @@ -986,14 +986,14 @@ val hash_uni(val hash1, val hash2, val join_func) val hout = make_similar_hash(hash1); val hiter, entry; - for (hiter = hash_begin(hash2), entry = hash_next(hiter); + for (hiter = hash_begin(hash2), entry = hash_next(hiter); entry; entry = hash_next(hiter)) { sethash(hout, car(entry), cdr(entry)); } - for (hiter = hash_begin(hash1), entry = hash_next(hiter); + for (hiter = hash_begin(hash1), entry = hash_next(hiter); entry; entry = hash_next(hiter)) { @@ -1021,7 +1021,7 @@ val hash_diff(val hash1, val hash2) val hout = copy_hash(hash1); val hiter, entry; - for (hiter = hash_begin(hash2), entry = hash_next(hiter); + for (hiter = hash_begin(hash2), entry = hash_next(hiter); entry; entry = hash_next(hiter)) { @@ -1044,7 +1044,7 @@ val hash_isec(val hash1, val hash2, val join_func) val hout = make_similar_hash(hash1); val hiter, entry; - for (hiter = hash_begin(hash1), entry = hash_next(hiter); + for (hiter = hash_begin(hash1), entry = hash_next(hiter); entry; entry = hash_next(hiter)) { |