aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-01-30 11:44:10 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-01-30 11:44:10 -0500
commit4fbf17eb5e9dcb3aac891832eabf63c715df4feb (patch)
tree16093c1b51f7cd46264525f39a8e1b285bd4a29c /src
parentc26a1b195e1846126e914875c88cd0a2cb5ef2c2 (diff)
Require support for dyadic ⟜ in Undo
Diffstat (limited to 'src')
-rw-r--r--src/r.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/r.bqn b/src/r.bqn
index 00bfc2b8..80bc0119 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -785,7 +785,7 @@ Mod2Inverse ← INF˙ _lookup_ ⟨
⍟, Int∘⊢◶⟨IA∘0˙,0⊸≤◶{𝕎⍟(-𝕩)_invChk_(𝕎⍟𝕩)}‿{𝕎⍟(-𝕩)}⟩
⊘, {(𝕎⁼)⊘(𝕏⁼)}
⊸, IsConstant∘⊣ ⊣◶{INF⊘𝕏}‿⊢ {𝕎⊸(𝕏⁼)}
- ⟜, IsConstant∘⊢◶⟨INF˙,{(𝕩𝕎˜⁼⊢)⊘(IA∘0)}⟩
+ ⟜, {(𝕨IsConstant∘⊢◶⟨IA∘0˙,{𝕩𝕎˜⁼⊢}⟩𝕩)⊘(𝕏⁼𝕎⁼)}
⟩ {
0‿2⊸⊏ {𝕏´𝕨}⟜𝔽 1⊸⊑
}