diff options
| author | Eduardo Julian | 2021-09-08 23:14:59 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-09-08 23:14:59 -0400 |
| commit | 085c9a6ef151531cb01b842ed2f4366a49b78367 (patch) | |
| tree | 01d5671061f1c688fe74319196f8da0e8aa95e4c /stdlib/source/library/lux/abstract/apply.lux | |
| parent | 54ab659064990ff37a9234c9792102a3b88277d6 (diff) | |
De-bracing | part 2
Diffstat (limited to 'stdlib/source/library/lux/abstract/apply.lux')
| -rw-r--r-- | stdlib/source/library/lux/abstract/apply.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/library/lux/abstract/apply.lux b/stdlib/source/library/lux/abstract/apply.lux index 48598dfa5..f1b2b9344 100644 --- a/stdlib/source/library/lux/abstract/apply.lux +++ b/stdlib/source/library/lux/abstract/apply.lux @@ -26,10 +26,10 @@ (def: (on fgx fgf) ... TODO: Switch from this version to the one below (in comments) ASAP. - (for {@.old (let [fgf' (\ f_apply on + (for [@.old (let [fgf' (\ f_apply on fgf (\ f_monad in (function (_ gf gx) (\ g_apply on gx gf))))] - (:expected (\ f_apply on (:expected fgx) (:expected fgf'))))} + (:expected (\ f_apply on (:expected fgx) (:expected fgf'))))] (let [fgf' (\ f_apply on fgf (\ f_monad in (function (_ gf gx) (\ g_apply on gx gf))))] |