summaryrefslogtreecommitdiffstats
path: root/hash.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2023-09-05 19:08:40 -0700
committerKaz Kylheku <kaz@kylheku.com>2023-09-05 19:08:40 -0700
commit4cfe0b06693df6003c4d978fd2ed6924bb2345ba (patch)
tree3a8d0bd08660c63ebea88830c2d7e2e7628c3360 /hash.c
parentce7240c36c1f143812f86b01e05318474d569f1c (diff)
downloadtxr-4cfe0b06693df6003c4d978fd2ed6924bb2345ba.tar.gz
txr-4cfe0b06693df6003c4d978fd2ed6924bb2345ba.tar.bz2
txr-4cfe0b06693df6003c4d978fd2ed6924bb2345ba.zip
Use vargs typedef instead of struct args *.
The vargs typedef is underused. Let's use it consistently everywhere. * args.c, * args.h, * args.c, * args.h, * arith.c, * eval.c * ffi.c, * gc.c, * hash.c, * lib.c, * lib.h, * parser.c, * stream.c, * struct.c, * struct.h, * syslog.c, * syslog.h, * unwind.c, * vm.c, * vm.h: All "struct args * declarations replaced with existing "varg" typedef that comes from lib.h.
Diffstat (limited to 'hash.c')
-rw-r--r--hash.c20
1 files changed, 10 insertions, 10 deletions
diff --git a/hash.c b/hash.c
index 2c915540..09f0d847 100644
--- a/hash.c
+++ b/hash.c
@@ -1619,7 +1619,7 @@ static val equal_based_p(val equal, val eql, val eq, val wkeys)
return null(eql);
}
-val hashv(struct args *args)
+val hashv(varg args)
{
val self = lit("hash");
val wkeys = nil, wvals = nil, equal = nil, eql = nil, wand = nil, wor = nil;
@@ -1680,12 +1680,12 @@ val hash_construct(val hashl_args, val pairs)
return hash;
}
-val hash_from_pairs_v(val pairs, struct args *hashv_args)
+val hash_from_pairs_v(val pairs, varg hashv_args)
{
return hash_construct(args_get_list(hashv_args), pairs);
}
-val hash_from_alist_v(val alist, struct args *hashv_args)
+val hash_from_alist_v(val alist, varg hashv_args)
{
val hash = hashv(hashv_args);
@@ -1699,7 +1699,7 @@ val hash_from_alist_v(val alist, struct args *hashv_args)
return hash;
}
-val hash_map(val fun, val seq, struct args *hashv_args)
+val hash_map(val fun, val seq, varg hashv_args)
{
val self = lit("hash-map");
seq_iter_t iter;
@@ -1712,7 +1712,7 @@ val hash_map(val fun, val seq, struct args *hashv_args)
return hash;
}
-val hash_props(struct args *plist)
+val hash_props(varg plist)
{
val self = lit("hash-props");
args_decl_constsize(args, ARGS_MIN);
@@ -1732,7 +1732,7 @@ val hash_props(struct args *plist)
return hash;
}
-val hash_list(val keys, struct args *hashv_args)
+val hash_list(val keys, varg hashv_args)
{
val hash = hashv(hashv_args);
@@ -1746,7 +1746,7 @@ val hash_list(val keys, struct args *hashv_args)
return hash;
}
-val hash_zip(val keys, val vals, struct args *hashv_args)
+val hash_zip(val keys, val vals, varg hashv_args)
{
val self = lit("hash-zip");
seq_iter_t key_iter, val_iter;
@@ -1762,7 +1762,7 @@ val hash_zip(val keys, val vals, struct args *hashv_args)
return hash;
}
-val group_by(val func, val seq, struct args *hashv_args)
+val group_by(val func, val seq, varg hashv_args)
{
val self = lit("group-by");
val hash = hashv(hashv_args);
@@ -1787,7 +1787,7 @@ val group_by(val func, val seq, struct args *hashv_args)
}
}
-val group_map(val by_fun, val filter_fun, val seq, struct args *hashv_args)
+val group_map(val by_fun, val filter_fun, val seq, varg hashv_args)
{
val hash = group_by(by_fun, seq, hashv_args);
return hash_update(hash, filter_fun);
@@ -2132,7 +2132,7 @@ val hash_keys_of(val hash, val value, val test, val keyfun)
return out;
}
-val hash_invert(val hash, val joinfun, val unitfun, struct args *hashv_args)
+val hash_invert(val hash, val joinfun, val unitfun, varg hashv_args)
{
val self = lit("hash-invert");
val hout = hashv(hashv_args);