diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2024-03-01 20:41:54 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2024-03-01 20:41:54 -0800 |
commit | 1134089866fde0478fe869aa6fa13e105325ddcd (patch) | |
tree | 714467630869f07c53403f84e1e791c5d229eb59 /rand.c | |
parent | d102e01cc47fedbb008ea5ea3757ad4415e1e4eb (diff) | |
download | txr-1134089866fde0478fe869aa6fa13e105325ddcd.tar.gz txr-1134089866fde0478fe869aa6fa13e105325ddcd.tar.bz2 txr-1134089866fde0478fe869aa6fa13e105325ddcd.zip |
zip: make more generic.
* lib.c (do_pa_12_1_v, pa_12_1_v): Static functions removed.
(transposev, transpose): Functions removed.
* lib.c (transposev, transpose): Declarations removed.
* eval.c (join_f): New global variable.
(zip_fun, zipv, transpose): New static functions.
(eval_init): gc-protect join_f, and initialize it.
Registration of zip intrinsic goes to zipv rather
than transposev. sys:fmt-join and join registered
with help of global join_f rather than local.
* tests/012/seq.tl: New zip test cases.
Diffstat (limited to 'rand.c')
0 files changed, 0 insertions, 0 deletions