fiddlerwoaroof/data-lens
1
0
Fork 0
mirror of https://github.com/fiddlerwoaroof/data-lens.git synced 2025-11-08 18:26:32 +00:00
Code Issues Releases Wiki Activity

feat: allow transducer parts to be past as a list

Browse Source
This commit is contained in:
Edward
2021-01-04 00:50:38 -08:00
parent 705dc56244
commit 1a07eb7339
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
transducers.lisp
View File

@ -131,7 +131,10 @@
((it) (funcall rf it)))))) ((it) (funcall rf it))))))
(defun transduce (xf build seq) (defun transduce (xf build seq)
(let ((transducer (funcall xf (stepper build)))) (let* ((xf (etypecase xf
(list (apply 'alexandria:compose xf))
((or function symbol) xf)))
(transducer (funcall xf (stepper build))))
(unwrap build (unwrap build
(funcall transducer (funcall transducer
(catch 'done (catch 'done