Update 'cubes' function to accept monadic value instead of cubes

This commit is contained in:
Sameer Rahmani 2020-10-26 19:28:34 +00:00
parent 4531c8cd81
commit 531e4603e8
1 changed files with 2 additions and 3 deletions

View File

@ -68,10 +68,9 @@ For example `(fg42/cube-compose #\'some-cube #\'some-other-cube)'"
(defun fg42/cubes (&rest cubes)
"Create a new cube out of the given list of CUBES."
(seq-reduce (lambda (cube1 cube2)
(fg42/cube-compose cube1 cube2))
(fg42/cube-bind cube1 cube2))
cubes
#'fg42/cube-identity))
(fg42/cube-identity)))
(provide 'fg42/cube)