From 531e4603e8bee9ae763badb024df0447db3332c0 Mon Sep 17 00:00:00 2001 From: Sameer Rahmani Date: Mon, 26 Oct 2020 19:28:34 +0000 Subject: [PATCH] Update 'cubes' function to accept monadic value instead of cubes --- core/fg42/cube.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/core/fg42/cube.el b/core/fg42/cube.el index b32a1f1..d902892 100644 --- a/core/fg42/cube.el +++ b/core/fg42/cube.el @@ -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)