From 4737ea39d889c5dfb6d96a33707a0b42f54e4b8b Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 20 Jan 2021 15:11:02 -0500
Subject: Compute fills for arithmetic

---
 src/r.bqn | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index 826584be..ab9b6336 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -70,7 +70,11 @@ _eachd←{
 
 _perv←{ # Pervasion
   R←𝔽{𝕨𝔽_perv𝕩}
-  +○IsArray◶⟨𝔽⋄R⌜⊘(>○IsArray◶{𝕨{𝕗R𝕩}⌜𝕩}‿{𝕩{𝕩R𝕗}⌜𝕨})⋄R _eachd⟩
+  +○IsArray◶⟨
+    𝔽
+    R⌜⊘(>○IsArray◶{𝕨{𝕗R𝕩}⌜𝕩}‿{𝕩{𝕩R𝕗}⌜𝕨}) _fillBy_ R
+    R _eachd _fillBy_ R
+  ⟩
 }
 
 Cmp0 ← ≥-≤
-- 
cgit v1.2.3