From 4d2322a4fb7c69fbd3cde18a8f7d4e6e9c057ef8 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 6 Jun 2021 20:19:12 -0400
Subject: =?UTF-8?q?Keep=20|=20with=20infinite=20=F0=9D=95=A8=20from=20retu?=
 =?UTF-8?q?rning=20NaN?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r1.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 024460df..e76270cd 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -695,7 +695,7 @@ _repeat_←{
 ÷ ↩ ÷ _perv
 ⋆ ↩ ⋆ _perv
 √ ← ⋆⟜(÷2)   ⊘ (⋆⟜÷˜)
-| ← (|       ⊘ {𝕩-𝕨×⌊𝕩÷𝕨}) _perv
+| ← (|       ⊘ (>○|◶{𝕩-𝕨×⌊𝕩÷𝕨}‿(+⍟(<⟜0◶⟨0⊸>,0⊸<⟩))) ) _perv
 ⌊ ↩ (⌊       ⊘ {(𝕨>𝕩)⊑𝕨‿𝕩}) _perv
 ⌈ ↩ (-∘⌊∘-   ⊘ {(𝕨<𝕩)⊑𝕨‿𝕩}) _perv
 ∧ ← ⍋⊸⊏      ⊘ (× _perv)
-- 
cgit v1.2.3