diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2020-06-04 06:36:38 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2020-06-04 06:36:38 -0700 |
| commit | 926d939de04f5c13d856b93b949302273cdf8923 (patch) | |
| tree | 24355ef5bbbbb610b9b77aa28ad1588fb4528832 /debug.c | |
| parent | c988eab530b2efc3d69a55835c32e2312d3870f1 (diff) | |
| download | txr-926d939de04f5c13d856b93b949302273cdf8923.tar.gz txr-926d939de04f5c13d856b93b949302273cdf8923.tar.bz2 txr-926d939de04f5c13d856b93b949302273cdf8923.zip | |
maprod: bugfix: not reducing to mapcar.
The one list case of maprod reduces to mappend rather than
mapcar, so that [maprod identity '(1 2 3)] fails instead
of producing (1 2 3).
* eval.c (prod_common): Take pointer to mapping function to
use in one-list case, and use it.
(maprodv): Pass mapcarv to prod_common.
(maprendv): Pass mappendv to prod_common.
Diffstat (limited to 'debug.c')
0 files changed, 0 insertions, 0 deletions