diff options
Diffstat (limited to 'stdlib/source/library/lux/abstract/apply.lux')
-rw-r--r-- | stdlib/source/library/lux/abstract/apply.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/abstract/apply.lux b/stdlib/source/library/lux/abstract/apply.lux index 7e531efe4..1bf1c84ce 100644 --- a/stdlib/source/library/lux/abstract/apply.lux +++ b/stdlib/source/library/lux/abstract/apply.lux @@ -26,18 +26,18 @@ (def: (on fgx fgf) ... TODO: Switch from this version to the one below (in comments) ASAP. - (for @.old (let [fgf' (# f_apply on - fgf - (# f_monad in (function (_ gf gx) (# g_apply on gx gf))))] - (as_expected (# f_apply on (as_expected fgx) (as_expected fgf')))) - (let [fgf' (# f_apply on - fgf - (# f_monad in (function (_ gf gx) (# g_apply on gx gf))))] - (# f_apply on fgx fgf'))) - ... (let [applyF (# f_apply on) - ... applyG (# g_apply on)] + (for @.old (let [fgf' (at f_apply on + fgf + (at f_monad in (function (_ gf gx) (at g_apply on gx gf))))] + (as_expected (at f_apply on (as_expected fgx) (as_expected fgf')))) + (let [fgf' (at f_apply on + fgf + (at f_monad in (function (_ gf gx) (at g_apply on gx gf))))] + (at f_apply on fgx fgf'))) + ... (let [applyF (at f_apply on) + ... applyG (at g_apply on)] ... (all applyF ... fgf - ... (# f_monad in applyG) + ... (at f_monad in applyG) ... fgx)) )) |